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