let iteri f a = for i = 0 to a.length - 1 do f i a.data.(i) done