RosettaCodeData/Task/Integer-sequence/Ol/integer-sequence-2.ol

5 lines
105 B
Plaintext

(let loop ((n 2))
(print n)
(unless (> n 100000000000000000000000000000000)
(loop (* n n))))