sig type t = string val get : string -> t val set : string -> t -> unit val clear : string -> unit -> unit val is_set : string -> bool val is_default : string -> bool end