MODULE Rec;
VAR g : INTEGER;

PROCEDURE Proc;
VAR x : INTEGER;
BEGIN
 x := 0;
 IF g = 0 THEN 
  g := 1;
  Proc
 END;
 x := x + 1;
 Write(x);WriteLn
END Proc;

BEGIN
 g := 0;
 Proc
END Rec.