<<>> <> <> <> <> <<>> <<>> <> <> <<>> DIRECTORY SafeStorage; RegisterRefLiteral: CEDAR DEFINITIONS ~ BEGIN RegisteredProc: TYPE = PROC [string: LONG STRING] RETURNS [REF]; UnknownType: ERROR [type: SafeStorage.Type, string: LONG STRING]; RegisterType: PROC [p: RegisteredProc, type: SafeStorage.Type]; <> <> <> <<>> Create: PROC [type: SafeStorage.Type, string: LONG STRING] RETURNS [REF]; <> <> <<>> <<>> END.