<> <> <> <> DIRECTORY ExampleTreeDef; ExampleATDef: CEDAR DEFINITIONS = BEGIN OPEN ExampleTreeDef; <> ExpressionNode: TYPE = REF ExpressionNodeBody; ExpressionNodeBody: TYPE = RECORD[ position: INT, length: INT, procs: ExpressionNodeProcs, data: REF ANY]; ExpressionNodeProcs: TYPE = REF ExpressionNodeProcsBody; ExpressionNodeProcsBody: TYPE = RECORD[ Evaluate: EvaluateProcType]; END..