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