RosettaCodeData/Task/Loops-Do-while/Oforth/loops-do-while.fth
2023-07-01 13:44:08 -04:00

1 line
44 B
Forth

0 doWhile: [ 1+ dup . dup 6 rem 0 <> ] drop