Progress_bar.Display
type ('a, 'b) t
val start : ?config:Config.t -> ('a, 'b) Multi.t -> ('a, 'b) t
val reporters : ('a, unit) t -> ('a, unit) Reporter.list
val tick : ('a, 'b) t -> unit
val add_line : ?above:int -> ('b, 'c) t -> 'a Line.t -> 'a Reporter.t
val finalise : ('a, 'b) t -> unit