MODULE Tris4;
VAR x , y : INTEGER;

BEGIN

   x := 0;
   WHILE( x < 100 ) DO
      x := x + 1;
      y := x;
      y := x + 1;
      y := y * 0;

      IF ( y = 0 ) THEN
	 PutInteger(1234 + ( x * 0 ))
      ELSE
	 PutInteger(678)
      END;
   END;
   PutLine();
END Tris4.