RosettaCodeData/Task/Loops-Do-while/Min/loops-do-while.min

2 lines
60 B
Plaintext

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