progress
Duration.Of_int
progress.engine
progress.vector
val ms : int -> t
val sec : int -> t
val min : int -> t
val hour : int -> t
val (+) : t -> t -> t