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

[1+$.' ,]⇒A
0 A[$6/%][A]#    {PUSH 0, execute operator A, [DUP, PUSH 6, MOD/DIV, POP][execute operator A]#}