<> <> <> <> DIRECTORY CD USING [Design, Object], IO USING [STREAM]; CDSimplifyStructure: CEDAR DEFINITIONS = BEGIN Simplify: PROC [design: CD.Design, root: CD.Object, log: IO.STREAM_NIL]; <<--tries to simplify the structure, starting with the root object>> END.