<> <> <> DIRECTORY IO USING [STREAM], Rope USING [ROPE]; MessagesOut: CEDAR DEFINITIONS = BEGIN OPEN IO, Rope; <> PutRopes: PROC [stream: STREAM, r1,r2,r3,r4: ROPE _ NIL]; <> PutMsg: PROC [r1,r2,r3,r4: ROPE _ NIL]; <> END.