MODULE DoWhile;
  IMPORT InOut;

  VAR
    i: INTEGER;

BEGIN
  i := 0
  REPEAT
    InOut.WriteInt(i, 1);
    InOut.WriteLn;
    INC(i)
  UNTIL i MOD 6 = 0;
END DoWhile.