created by Koo, June 28, 1984 10:29:39 am PDT

TypeStrings USING[TypeString];

TypeKey: TYPE = ARRAY [0 .. WordPerKey) OF CARDINAL;

WordPerKey: PUBLIC CARDINAL = 4;

nullKey: TypeKey = ALL[0];

TypeStrHash: PROCEDURE[ts: TypeString] RETURNS[key: TypeKey];