type 'a or_error
= ('a, string) Result.result
val error : string ‑> _ or_error
val errorf : ('a, Format.formatter, unit, 'b or_error) Pervasives.format4 ‑> 'a
module ProgressBar : sig ... end
module Cache : sig ... end