sig
  module Style :
    sig
      type t
      val ansi : Color_print.Style.t
      val no_formatting : Color_print.Style.t
      val ok_or_not : Color_print.Style.t
    end
  module type T =
    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
  type t = (module Color_print.T)
  val create :
    style:Color_print.Style.t -> oc:Core.Std.Out_channel.t -> Color_print.t
  module S : T
  val ounit_tests : unit -> OUnit.test
end