4 lines
77 B
Common Lisp
4 lines
77 B
Common Lisp
(let ((i 1024))
|
|
(while (> i 0)
|
|
(message "%d" i)
|
|
(setq i (/ i 2))))
|