'a Sdebug.media ->
object
  method level : int
  method media : 'a Sdebug.media
  method print : ?level:int -> string -> unit
  method set_level : int -> unit
end