<> <> <> <> DIRECTORY BcdDefs: TYPE USING [BCD], IO: TYPE USING [STREAM]; BcdLister: DEFINITIONS = { RefBCD: TYPE = REF BcdDefs.BCD; ListBcd: PROC[stream, inStream: IO.STREAM, bcd: RefBCD, cmd: ATOM]; }.