sig
  type display
  type tagline_description = (string * char) list
  val create :
    ?channel:Pervasives.out_channel ->
    ?mode:[ `Classic | `Sophisticated ] ->
    ?columns:int ->
    ?description:Display.tagline_description ->
    ?log_file:string -> ?log_level:int -> unit -> Display.display
  val finish : ?how:[ `Error | `Quiet | `Success ] -> Display.display -> unit
  val event :
    Display.display -> ?pretend:bool -> string -> string -> Tags.t -> unit
  val display : Display.display -> (Pervasives.out_channel -> unit) -> unit
  val update : Display.display -> unit
  val dprintf :
    ?log_level:int ->
    Display.display -> ('a, Format.formatter, unit) Pervasives.format -> 'a
end