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