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