object
  method media : 'a
  method output : string -> unit
  method set_color : 'color -> unit
  method set_media : 'a -> unit
end