5 lines
71 B
Common Lisp
5 lines
71 B
Common Lisp
(DEFINE I 1024)
|
|
|
|
(WHILE (>= I 1)
|
|
(PRINT I)
|
|
(DEFINE I (/ I 2)))
|