DIRECTORY
  TreesDefs USING [TreeNode];
  
PrintExprDefs: DEFINITIONS = {

  -- makes a string of the expression tree
  MakeExpression: PROCEDURE [node: LONG POINTER TO TreesDefs.TreeNode,
        withParens: BOOLEAN] RETURNS [result: LONG STRING];

  -- changes an integer expression node to a logical value
  IntExpToRelation: PROCEDURE [e: LONG POINTER TO LONG POINTER TO TreesDefs.TreeNode];
      
  }.