module type Media = sig .. end
sig
end
type media
val media : unit -> media
unit -> media
val set_media : media -> unit
media -> unit
val output : int -> string -> unit
int -> string -> unit