RosettaCodeData/Task/Loops-Do-while/Forth/loops-do-while.fth

: do-until
  0
  begin 1+
        dup .
        dup 6 mod 0=
  until
  drop ;