sig
  val println : string -> unit
  val redprintln : string -> unit
  val yellowprintln : string -> unit
  val greenprintln : string -> unit
  val blueprintln : string -> unit
  val inverseprintln : string -> unit
  val printfln : ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val redprintfln :
    ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val yellowprintfln :
    ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val greenprintfln :
    ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val blueprintfln :
    ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val inverseprintfln :
    ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
end