<> <> <> <> <> <> DIRECTORY AlpineEnvironment USING [Conversation, Principal]; ClientMap: DEFINITIONS = BEGIN OPEN AlpineEnvironment; Register: PROCEDURE [conversation: Conversation, principal: Principal]; <> Unregister: PROCEDURE [conversation: Conversation]; <> <> GetName: PROCEDURE [conversation: Conversation] RETURNS [principal: Principal]; <> <> <> END. <> <> <<>>