sig
  type media
  val media : unit -> media
  val set_media : media -> unit
  val output : int -> string -> unit
  type color
  val set_colors : (int * Sdebug.Color_media.color) list -> unit
end