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