method print ?(level=1) s =
      if self#level < level then
        ()
      else
        self#media#output s