('a, 'color) Sdebug.color_media ->
object
  method level : int
  method media : 'a media
  method print : ?level:int -> string -> unit
  method set_colors : (int * 'color) list -> unit
  method set_level : int -> unit
end