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