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