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

[1+$.' ,]⇒A   {operator definition: PUSH 1, ADD, DUP, print top of stack to SDTOUT, print whitespace}
[1+$.' ,]a:    {function definition}