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