functor (M : sig val name : string end->
  sig
    val my_verbosity_level : Log.level Pervasives.ref
    val logf :
      ?level:[< `always | `debug | `error | `fatal | `info | `trace | `warn
              > `info ] ->
      ?attributes:[< `Black
                   | `Blue
                   | `Bold
                   | `Cyan
                   | `Green
                   | `Magenta
                   | `Red
                   | `Underline
                   | `White
                   | `Yellow ]
                  list ->
      ('a, Format.formatter, unit, unit, unit, unit) Pervasives.format6 -> 'a
    val log :
      ?level:[< `always | `debug | `error | `fatal | `info | `trace | `warn
              > `info ] ->
      ?attributes:[< `Black
                   | `Blue
                   | `Bold
                   | `Cyan
                   | `Green
                   | `Magenta
                   | `Red
                   | `Underline
                   | `White
                   | `Yellow ]
                  list ->
      string -> unit
    val log_pp :
      ?level:[< `always | `debug | `error | `fatal | `info | `trace | `warn
              > `info ] ->
      ?attributes:[< `Black
                   | `Blue
                   | `Bold
                   | `Cyan
                   | `Green
                   | `Magenta
                   | `Red
                   | `Underline
                   | `White
                   | `Yellow ]
                  list ->
      (Format.formatter -> '-> unit) -> '-> unit
  end