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