sig
  val level : unit -> int
  val set_level : int -> unit
  val incr_level : unit -> unit
  val decr_level : unit -> unit
  type media
  val media : unit -> media
  val set_media : media -> unit
  val output : int -> string -> unit
  type color
  val set_colors : (int * color) list -> unit
  val print : ?level:int -> string -> unit
end