class type ['a] media = object .. end
['a]
object
end
method media : 'a
'a
method set_media : 'a -> unit
'a -> unit
method output : string -> unit
string -> unit