sig
  val level : unit -> int
  val set_level : int -> unit
  val incr_level : unit -> unit
  val decr_level : unit -> unit
end