Asynchronous_result.Loop
val n_times : Base__Int.t -> (Base__Int.t -> (unit, 'a) t) -> (unit, 'b) t
val n_times_fold : Base__Int.t -> 'a -> (Base__Int.t -> 'b -> ('c, 'd) t) -> (unit, 'e) t