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