MODULE T;
VAR r : REAL;
    i : INTEGER;
BEGIN
  FOR r := 1 TO 10 DO i := i + 1 END
END T.