module ProgressBar: sig .. end
sig
end
type t
val make : n:int -> t
n:int -> t
val stop : t -> unit
t -> unit
val incr : t -> unit
val set_count : t -> int -> unit
t -> int -> unit