sig   type kind = No_tty | Dumb | Term of string   val kind : out:Unix.file_descr -> B0.Tty.kind   type cap = Ansi | None   val cap : B0.Tty.kind -> B0.Tty.cap   type color =       [ `Black       | `Blue       | `Cyan       | `Default       | `Green       | `Magenta       | `Red       | `White       | `Yellow ]   type style =       [ `Bg of B0.Tty.color       | `Blink of [ `Rapid | `Slow ]       | `Bold       | `Faint       | `Fg of B0.Tty.color       | `Italic       | `Reverse       | `Underline ]   val styled_str : B0.Tty.cap -> B0.Tty.style list -> string -> string   val strip_escapes : string -> string end