sig
  val normal : string -> string
  val bold : ?override:bool -> string -> string
  val underline : ?override:bool -> string -> string
  val inverse : ?override:bool -> string -> string
  val red : ?override:bool -> string -> string
  val yellow : ?override:bool -> string -> string
  val green : ?override:bool -> string -> string
  val blue : ?override:bool -> string -> string
  val magenta : ?override:bool -> string -> string
  val cyan : ?override:bool -> string -> string
  val gray : ?override:bool -> string -> brightness:float -> string
  val rgb :
    ?override:bool -> string -> r:float -> g:float -> b:float -> string
  type color =
      [ `Amber
      | `Black
      | `Blue
      | `Blue_violet
      | `Bright_green
      | `Chartreuse
      | `Cyan
      | `Dark_blue
      | `Dark_cyan
      | `Dark_green
      | `Dark_magenta
      | `Dark_red
      | `Dark_yellow
      | `Deep_pink
      | `Deep_sky_blue
      | `Dodger_blue
      | `Gold
      | `Gray
      | `Green
      | `Green_yellow
      | `Khaki
      | `Light_gray
      | `Light_green
      | `Light_pink
      | `Light_slate_blue
      | `Light_steel_blue
      | `Magenta
      | `Medium_spring_green
      | `Orange
      | `Orchid
      | `Pale_turquoise
      | `Pink
      | `Plum
      | `Purple
      | `Red
      | `Rose
      | `Sea_green
      | `Spring_green
      | `Turquoise
      | `Violet
      | `Wheat
      | `White
      | `Yellow ]
  val color : ?override:bool -> string -> color:Color_print.color -> string
  val bold_sprintf :
    ?override:bool -> ('a, unit, string, string) Pervasives.format4 -> 'a
  val underline_sprintf :
    ?override:bool -> ('a, unit, string, string) Pervasives.format4 -> 'a
  val inverse_sprintf :
    ?override:bool -> ('a, unit, string, string) Pervasives.format4 -> 'a
  val red_sprintf :
    ?override:bool -> ('a, unit, string, string) Pervasives.format4 -> 'a
  val yellow_sprintf :
    ?override:bool -> ('a, unit, string, string) Pervasives.format4 -> 'a
  val green_sprintf :
    ?override:bool -> ('a, unit, string, string) Pervasives.format4 -> 'a
  val blue_sprintf :
    ?override:bool -> ('a, unit, string, string) Pervasives.format4 -> 'a
  val magenta_sprintf :
    ?override:bool -> ('a, unit, string, string) Pervasives.format4 -> 'a
  val cyan_sprintf :
    ?override:bool -> ('a, unit, string, string) Pervasives.format4 -> 'a
  val gray_sprintf :
    ?override:bool ->
    brightness:float -> ('a, unit, string, string) Pervasives.format4 -> 'a
  val rgb_sprintf :
    ?override:bool ->
    r:float ->
    g:float -> b:float -> ('a, unit, string, string) Pervasives.format4 -> 'a
  val color_sprintf :
    ?override:bool ->
    color:Color_print.color ->
    ('a, unit, string, string) Pervasives.format4 -> 'a
  val boldprintf : ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val underlineprintf :
    ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val inverseprintf :
    ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val redprintf : ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val yellowprintf :
    ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val greenprintf :
    ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val blueprintf : ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val magentaprintf :
    ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val cyanprintf : ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val grayprintf :
    brightness:float ->
    ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val rgbprintf :
    r:float ->
    g:float ->
    b:float -> ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val colorprintf :
    color:Color_print.color ->
    ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val bin_color : Color_print.color Core.Std.Bin_prot.Type_class.t
  val bin_read_color : Color_print.color Core.Std.Bin_prot.Read.reader
  val __bin_read_color__ :
    (int -> Color_print.color) Core.Std.Bin_prot.Read.reader
  val bin_reader_color :
    Color_print.color Core.Std.Bin_prot.Type_class.reader
  val bin_size_color : Color_print.color Core.Std.Bin_prot.Size.sizer
  val bin_write_color : Color_print.color Core.Std.Bin_prot.Write.writer
  val bin_writer_color :
    Color_print.color Core.Std.Bin_prot.Type_class.writer
  val color_of_sexp : Sexplib.Sexp.t -> Color_print.color
  val __color_of_sexp__ : Sexplib.Sexp.t -> Color_print.color
  val sexp_of_color : Color_print.color -> Sexplib.Sexp.t
end