2 lines
59 B
Forth
2 lines
59 B
Forth
: ints ( -- )
|
|
0 begin 1+ dup cr u. dup -1 = until drop ;
|
: ints ( -- )
|
|
0 begin 1+ dup cr u. dup -1 = until drop ;
|