4 lines
75 B
Text
4 lines
75 B
Text
(let N 1024
|
|
(while (gt0 N)
|
|
(println N)
|
|
(setq N (/ N 2)) ) )
|