module type Level = sig .. end
sig
end
val level : unit -> int
unit -> int
val set_level : int -> unit
int -> unit
val incr_level : unit -> unit
unit -> unit
val decr_level : unit -> unit