RosettaCodeData/Task/Loops-Do-while/Oz/loops-do-while.oz

declare
  I = {NewCell 0}
in
  for until:@I mod 6 == 0 do
     I := @I + 1
     {Show @I}
  end