let
iteri l ~f = ignore (fold l ~init:0 ~f:(
fun
i x
->
let
() = f i x
in
i + 1))