Как сделать функции, которые находят набор мощности в LISP, используя циклы

Question

Я уже написал это с помощью рекурсии, но теперь мне нужно сделать это с помощью любого вида цикла. Вот мой рекурсивный алгоритм:

(defun connect (A X)
(cond
    ((null X) (list (list A)))
    (T (append (list(cons A (car X))) (connect A (cdr X))))))
(defun comb (X)
(cond
    ((null X) nil)
    (T (append (connect (car X) (comb (cdr X)) ) (comb (cdr X)) ))))