sig
  val enable : string -> unit
  val disable : string -> unit
  val make : string -> ('a, unit, string, unit) Pervasives.format4 -> 'a
end