<> <> <> DIRECTORY Font USING [Box, Key, Pair]; UFStrikeReader: CEDAR DEFINITIONS = BEGIN Key: TYPE = Font.Key; BoundingBox: PROCEDURE [key: Key, char: CHAR] RETURNS [Font.Box]; WidthVector: PROCEDURE [key: Key, char: CHAR] RETURNS [Font.Pair]; END.