sig
  val normal : string -> string
  val bold : string -> string
  val underline : string -> string
  val inverse : string -> string
  val red : string -> string
  val yellow : string -> string
  val green : string -> string
  val blue : string -> string
  val magenta : string -> string
  val cyan : string -> string
  val gray : string -> brightness:float -> string
  val rgb : 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 : string -> color:color -> string
  val boldprintf : ('a, out_channel, unit) format -> 'a
  val underlineprintf : ('a, out_channel, unit) format -> 'a
  val inverseprintf : ('a, out_channel, unit) format -> 'a
  val redprintf : ('a, out_channel, unit) format -> 'a
  val yellowprintf : ('a, out_channel, unit) format -> 'a
  val greenprintf : ('a, out_channel, unit) format -> 'a
  val blueprintf : ('a, out_channel, unit) format -> 'a
  val magentaprintf : ('a, out_channel, unit) format -> 'a
  val cyanprintf : ('a, out_channel, unit) format -> 'a
  val grayprintf : brightness:float -> ('a, out_channel, unit) format -> 'a
  val rgbprintf :
    r:float -> g:float -> b:float -> ('a, out_channel, unit) format -> 'a
  val colorprintf : color:color -> ('a, out_channel, unit) format -> 'a
  val bin_color : color Core.Std.Bin_prot.Type_class.t
  val bin_read_color : color Core.Std.Bin_prot.Read.reader
  val __bin_read_color__ : (int -> color) Core.Std.Bin_prot.Read.reader
  val bin_reader_color : color Core.Std.Bin_prot.Type_class.reader
  val bin_size_color : color Core.Std.Bin_prot.Size.sizer
  val bin_write_color : color Core.Std.Bin_prot.Write.writer
  val bin_writer_color : color Core.Std.Bin_prot.Type_class.writer
  val color_of_sexp : Sexplib.Sexp.t -> color
  val __color_of_sexp__ : Sexplib.Sexp.t -> color
  val sexp_of_color : color -> Sexplib.Sexp.t
end