sig
  type t
  val full_name : Utils.Section.t -> string
  val set_debug : Utils.Section.t -> int -> unit
  val clear_debug : Utils.Section.t -> unit
  val get_debug : Utils.Section.t -> int option
  val cur_level : Utils.Section.t -> int
  val iter : (string * Utils.Section.t) Utils.sequence
  val root : Utils.Section.t
  val make :
    ?parent:Utils.Section.t ->
    ?inheriting:Utils.Section.t list -> string -> Utils.Section.t
end