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