# Module Std.Color_print

    module Color_print: Color_print

    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 -> 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 ->
           ('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 ->
           ('a, Pervasives.out_channel, unit) Pervasives.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