8 lines
183 B
Text
8 lines
183 B
Text
(
|
|
(dup 0 ==) (pop () 0 shorten)
|
|
(((8 mod) (8 div)) cleave) 'cons linrec
|
|
reverse 'print! foreach newline
|
|
) :octal
|
|
|
|
0 (dup octal succ)
|
|
9.223e18 int times ; close to max int value
|