Theia-Modula-2/grammars/Oberon07/tests/deep.Mod

MODULE Deep;
IMPORT Out;
CONST N = 10;
TYPE
  Point = RECORD x: INTEGER END;
  Node = POINTER TO NodeDesc;
  NodeDesc = RECORD key: INTEGER; left, right: Node END;
VAR
  pt: Point;
  n: Node;
  i: INTEGER;
PROCEDURE Walk(t: Node);
BEGIN
  IF t # NIL THEN Walk(t.left); Walk(t.right) END
END Walk;
BEGIN
  NEW(n);
  n.key := 5; n.left := NIL;
  pt.x := 1;
  WHILE i < N DO INC(i) END;
  Walk(n)
END Deep.