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