8 lines
78 B
Forth
8 lines
78 B
Forth
|
: do-until
|
||
|
|
0
|
||
|
|
begin 1+
|
||
|
|
dup .
|
||
|
|
dup 6 mod 0=
|
||
|
|
until
|
||
|
|
drop ;
|