sig   type color = Black | Red | Green | Yellow | Blue | Magenta | Cyan | White   type style = FG of Misc.Color.color | BG of Misc.Color.color | Bold | Reset   val ansi_of_style_l : Misc.Color.style list -> string   type styles = {     error : Misc.Color.style list;     warning : Misc.Color.style list;     loc : Misc.Color.style list;   }   val default_styles : Misc.Color.styles   val get_styles : unit -> Misc.Color.styles   val set_styles : Misc.Color.styles -> unit   type setting = Auto | Always | Never   val setup : Misc.Color.setting -> unit   val set_color_tag_handling : Format.formatter -> unit end