module Console: Console
module Ansi:sig
..end
val is_color_tty : unit -> bool
val width : unit -> [ `Cols of int | `Not_a_tty | `Not_available ]
None
if stdout is
not connected to a tty.val print_list : Pervasives.out_channel -> (string * Ansi.attr list) list -> unit