# Module Console.Ansi

    module Ansi: sig .. end

Handling of ansi codes.

    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 color
           | `Black
           | `Blue
           | `Bright
           | `Cyan
           | `Dim
           | `Green
           | `Magenta
           | `Red
           | `Reverse
           | `Underscore
           | `White
           | `Yellow ]

    val printf : attr list ->
           ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a

    val eprintf : attr list ->
           ('a, Pervasives.out_channel, unit) Pervasives.format -> 'a

    val output_string : attr list -> Pervasives.out_channel -> string -> unit

    val output : attr list ->
           Pervasives.out_channel -> string -> int -> int -> unit

    val string_with_attr : attr list -> string -> string