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

1 line
60 B
Text

0 (dup 6 mod 0 == over 0 != and) 'pop (puts succ) () linrec