5 lines
70 B
Text
5 lines
70 B
Text
|
(let (i 1024)
|
||
|
|
(while (> i 0)
|
||
|
|
(println i)
|
||
|
|
(setq i (/ i 2))))
|