<> <> DIRECTORY IO; SParse: CEDAR DEFINITIONS = BEGIN <> <> <> <> <> <> Tree: TYPE = REF; -- ROPE | REF INT | LIST OF Tree (list.first is the operand ROPE) ToTree: PROC[rope: IO.ROPE] RETURNS[Tree]; ToRope: PROC[ref: Tree, indentedLevs: INT _ 2] RETURNS[IO.ROPE]; BadRope: SIGNAL; -- From ToTree BadTree: SIGNAL; -- From ToRope END.