sig type t val ansi : Color_print.Style.t val no_formatting : Color_print.Style.t val ok_or_not : Color_print.Style.t end