4 lines
105 B
Text
4 lines
105 B
Text
(let loop ((n 2))
|
|
(print n)
|
|
(unless (> n 100000000000000000000000000000000)
|
|
(loop (* n n))))
|