type color =
| Black
| Red
| Green
| Yellow
| Blue
| Magenta
| Cyan
| White
type style =
| FG of color
| BG of color
| Bold
| Reset
val ansi_of_style_l : style list -> string
val default_setting : setting
val setup : setting option -> unit
val set_color_tag_handling : Stdlib.Format.formatter -> unit