<> <> <> <> <> <> <<>> DIRECTORY TypeStrings USING [TypeString]; TypeHash: DEFINITIONS = BEGIN TypeKey: TYPE = ARRAY [0 .. WordPerKey) OF CARDINAL; WordPerKey: PUBLIC CARDINAL = 4; nullKey: TypeKey = ALL[0]; TypeStrHash: PROC[ts: TypeStrings.TypeString] RETURNS[key: TypeKey]; END.