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 get_styles : unit -> styles
val set_styles : styles -> unit
type setting =
| Auto
| Always
| Never