sig
  type t = bool
  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
  val on : string -> unit -> unit
  val off : string -> unit -> unit
end