3 space

3space.ob

MOFULE A;
CONST
   pi = 3.1415;
TYPE
   Foo = RECORD END;
VAR
   some : INTEGER;

PROCEDURE Boo();
CONST
   e = 2.7;
TYPE
   Arr = ARRAY 10 OF CHAR;
VAR
   i : INTEGER;

   PROCEDURE Inner();
   BEGIN
      i := 0;
   END Inner;

BEGIN
   i := 0;
END Boo;

PROCEDURE Boo1();
CONST
   e = 2.7;
TYPE
   Arr = ARRAY 10 OF CHAR;
VAR
   i : INTEGER;

   PROCEDURE Inner();
   BEGIN
      i := 0;
   END Inner;
BEGIN
   i := 0;
END Boo1;

PROCEDURE Boo2();
CONST
   e = 2.7;
TYPE
   Arr = ARRAY 10 OF CHAR;
VAR
   i : INTEGER;

   PROCEDURE Inner();
   BEGIN
      i := 0;
   END Inner;
BEGIN
   i := 0;
END Boo2;

BEGIN
   some := 42;
   Boo;
   Boo1;
   Boo2;
END A.