Вычислить 2^n, но выводить по цифрам

(defun step (x n)
  (if (zerop n) 1
   (if (minusp n)
    (/ 1 (step x (- n)))
    (* x (step x (1- n))))))
    
(defun task (n)
  (if (or (< n 0) (> n 1000)) (princ "Peace of shit")
      (step 2 n)))

(defun -step (x n)
  (if (zerop n) 1
   (if (minusp n)
    (/ 1 (-step x (- n)))
  (progn (format t "~a " (expt x n))
    (* x (-step x (1- n)))))))
 
> (-step 2 10)
1024 512 256 128 64 32 16 8 4 2 
1024
 
> (-step 3 10)
59049 19683 6561 2187 729 243 81 27 9 3 
59049

(defun 2pow (n)
  (let ((r 1))
   (dotimes (i n 'ok)
     (printline (setq r (* r 2))))))
 
==> 2pow
 
(2pow 10)
2
4
8
16
32
64
128
256
512
1024
 
==> ok
 
(2pow 20)
2
4
8
16
32
64
128
256
512
1024
2048
4096
8192
16384
32768
65536
131072
262144
524288
1048576
 
==> ok

(defun 2^ (n)
    (cond
        ((equal n 0) 1)
        (t (printsline (expt 2 n)) (2^ (- n 1)))))
 
(2^ 10)
1024
512
256
128
64
32
16
8
4
2
 
==> 1

(defun 2^ (n &optional (i 1))
    (cond
        ((equal i (+ n 1)) "done")
        (t (printsline (expt 2 i)) (2^ n (+ i 1)))))
 
(2^ 10)
2
4
8
16
32
64
128
256
512
1024
 
==> "done"

(princ "Piece of shit")

(^ 2 1000)
 
==> 10715086071862673209484250490600018105614048117055336074437503883703510511249361224931983788156958581275946729175531468251871452856923140435984577574698574803934567774824230985421074605062371141877954182153046474983581941267398767559165543946077062914571196477686542167660429831652624386837205668069376

;; вычисление степенией двойки в виде списка цифр
 
(defun *2 (lst &optional (p 0))
  (cond ((null lst) (if (zerop p) nil (list p)))
        (t (let ((n (+ p (* 2 (car lst)))))
             (if (< n 10) (cons n (*2 (cdr lst) 0))
                          (cons (% n 10) (*2 (cdr lst) (\ n 10))))))))                  
 
==> *2
 
;; Проверим:
 
(let ((a '(1)))
  (dotimes (i 60 'ok)
   (printline (reverse (setq a (*2 a))))))
(2)
(4)
(8)
(1 6)
(3 2)
(6 4)
(1 2 8)
(2 5 6)
(5 1 2)
(1 0 2 4)
(2 0 4 8)
(4 0 9 6)
(8 1 9 2)
(1 6 3 8 4)
(3 2 7 6 8)
(6 5 5 3 6)
(1 3 1 0 7 2)
(2 6 2 1 4 4)
(5 2 4 2 8 8)
(1 0 4 8 5 7 6)
(2 0 9 7 1 5 2)
(4 1 9 4 3 0 4)
(8 3 8 8 6 0 8)
(1 6 7 7 7 2 1 6)
(3 3 5 5 4 4 3 2)
(6 7 1 0 8 8 6 4)
(1 3 4 2 1 7 7 2 8)
(2 6 8 4 3 5 4 5 6)
(5 3 6 8 7 0 9 1 2)
(1 0 7 3 7 4 1 8 2 4)
(2 1 4 7 4 8 3 6 4 8)
(4 2 9 4 9 6 7 2 9 6)
(8 5 8 9 9 3 4 5 9 2)
(1 7 1 7 9 8 6 9 1 8 4)
(3 4 3 5 9 7 3 8 3 6 8)
(6 8 7 1 9 4 7 6 7 3 6)
(1 3 7 4 3 8 9 5 3 4 7 2)
(2 7 4 8 7 7 9 0 6 9 4 4)
(5 4 9 7 5 5 8 1 3 8 8 8)
(1 0 9 9 5 1 1 6 2 7 7 7 6)
(2 1 9 9 0 2 3 2 5 5 5 5 2)
(4 3 9 8 0 4 6 5 1 1 1 0 4)
(8 7 9 6 0 9 3 0 2 2 2 0 8)
(1 7 5 9 2 1 8 6 0 4 4 4 1 6)
(3 5 1 8 4 3 7 2 0 8 8 8 3 2)
(7 0 3 6 8 7 4 4 1 7 7 6 6 4)
(1 4 0 7 3 7 4 8 8 3 5 5 3 2 8)
(2 8 1 4 7 4 9 7 6 7 1 0 6 5 6)
(5 6 2 9 4 9 9 5 3 4 2 1 3 1 2)
(1 1 2 5 8 9 9 9 0 6 8 4 2 6 2 4)
(2 2 5 1 7 9 9 8 1 3 6 8 5 2 4 8)
(4 5 0 3 5 9 9 6 2 7 3 7 0 4 9 6)
(9 0 0 7 1 9 9 2 5 4 7 4 0 9 9 2)
(1 8 0 1 4 3 9 8 5 0 9 4 8 1 9 8 4)
(3 6 0 2 8 7 9 7 0 1 8 9 6 3 9 6 8)
(7 2 0 5 7 5 9 4 0 3 7 9 2 7 9 3 6)
(1 4 4 1 1 5 1 8 8 0 7 5 8 5 5 8 7 2)
(2 8 8 2 3 0 3 7 6 1 5 1 7 1 1 7 4 4)
(5 7 6 4 6 0 7 5 2 3 0 3 4 2 3 4 8 8)
(1 1 5 2 9 2 1 5 0 4 6 0 6 8 4 6 9 7 6)
 
==> ok