let iter2 f a b =
  assert (Array.length a = Array.length b);
  for i = 0 to Array.length a -1 do
    f (Array.unsafe_get a i) (Array.unsafe_get b i)
  done