val lookup_user : string -> (string * session_id option)
+val user_of_session : session_id -> string
+
val create_session : string -> session_id
val get_session_owner : session_id -> string
val deserialize : unit -> unit
val add_user : string -> string -> unit
+
+val reset : unit -> unit