sig
  val kill_line : unit -> unit
  val bell : unit -> unit
  val home_cursor : unit -> unit
  val save_cursor : unit -> unit
  val unsave_cursor : unit -> unit
  type color =
      [ `Black | `Blue | `Cyan | `Green | `Magenta | `Red | `White | `Yellow ]
  type attr =
      [ `Bg of Console.Ansi.color
      | `Black
      | `Blue
      | `Bright
      | `Cyan
      | `Dim
      | `Green
      | `Magenta
      | `Red
      | `Reverse
      | `Underscore
      | `White
      | `Yellow ]
  val printf :
    Console.Ansi.attr list ->
    ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val eprintf :
    Console.Ansi.attr list ->
    ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
  val output_string :
    Console.Ansi.attr list -> Pervasives.out_channel -> string -> unit
  val output :
    Console.Ansi.attr list ->
    Pervasives.out_channel -> string -> int -> int -> unit
  val string_with_attr : Console.Ansi.attr list -> string -> string
end