MODULE Main;

FROM InOut IMPORT WriteString, WriteLn;

VAR
  count: INTEGER;

PROCEDURE Next(n: INTEGER): INTEGER;
BEGIN
  RETURN n + 1;
END Next;

BEGIN
  count := 0;
  WHILE count < 3 DO
    WriteString("Hello, Modula-2!");
    WriteLn;
    count := Next(count);
  END;
END Main.