<> <> <> DIRECTORY IO, RefTab; PrintTiogaRegistry: CEDAR PROGRAM IMPORTS IO, RefTab <> ={ Print: PROC [tab: RefTab.Ref, to: IO.STREAM] = { PrintPair: PROC [key, val: REF ANY] RETURNS [quit: BOOLEAN] = { to.PutF["%g: %g\n", IO.refAny[key], IO.refAny[val]]; quit _ FALSE; }; [] _ tab.Pairs[PrintPair]; RETURN}; }.