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