functor (L : Level) ->
  functor (M : Out_channel_media) ->
    sig
      type color = Sdebug.terminal_color
      val set_colors :
        (int * Sdebug.FOut_channel_media_color.color) list -> unit
      type media = out_channel
      val media : unit -> media
      val set_media : media -> unit
      val output : int -> string -> unit
    end