sig   type t = int   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 incr : string -> unit -> unit end