RosettaCodeData/Task/Loops-Do-while/DUP/loops-do-while-3.dup

3 lines
30 B
Plaintext

[1+$.' ,]a:
0 a;![$6/%][a;!]#