sig val set : string -> unit val unset : unit -> unit end