let
iteri f a =
Array
.iteri (
fun
i v
->
f i v) a