sig
  type ('a, 'b) result
  val debug_level : unit -> int
  val with_color : unit -> bool
  val line_width : int
  val indent : int
  val print_string : string -> (unit, 'b) Docout.LOGGER_CONFIGURATION.result
  val do_nothing : unit -> (unit, 'b) Docout.LOGGER_CONFIGURATION.result
  val name : string
end