5 lines
151 B
Text
5 lines
151 B
Text
DEFINE
|
|
digit == "01234567" of;
|
|
oct == "\n" [pop 7 >] [[8 div digit] dip cons] while swap digit swons.
|
|
|
|
0 [0 >=] [dup oct putchars succ] while pop.
|