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   val strip_escapes : string -> string   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 str_cap : B0.Tty.cap -> B0.Tty.style list -> string -> string   val set_styling_cap : B0.Tty.cap -> unit   val styling_cap : unit -> B0.Tty.cap   val str : B0.Tty.style list -> string -> string   val pp_str : B0.Tty.style list -> string B0.Fmt.t   val pp : B0.Tty.style list -> 'B0.Fmt.t -> 'B0.Fmt.t end