sig
val is_color_tty : unit -> bool
type style = [ `Green | `Red | `Underline ]
val printf :
Shell.Ansi.style ->
('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
val eprintf :
Shell.Ansi.style ->
('a, Pervasives.out_channel, unit) Pervasives.format -> 'a
end