module Progress:A progress indicator modulesig
..end
class type progress_indicator =object
..end
class indicator :decimation:int -> label:string -> channel:Pervasives.out_channel -> unit ->
progress_indicator
class formatter_indicator :decimation:int -> label:string -> fmt:Format.formatter -> unit ->
progress_indicator
val dummy : progress_indicator