sig
  val set : string -> int -> unit
  val get : string -> int
  val list_active : unit -> (string * int) list
end