Test.obn

   1 MODULE Test;
   2
   3   VAR
   4     x : INTEGER;
   5     p : PROCEDURE;
   6
   7   PROCEDURE X;
   8   BEGIN
   9     x := 1;
  10     x := 2;
  11     x := 3;
  12     p
  13   END X;
  14
  15 BEGIN
  16   X;
  17 END Test.