sig
  type media = out_channel
  val media : unit -> media
  val set_media : media -> unit
  val output : int -> string -> unit
end