let array_iter2 (_func: 'a -> 'b -> unit) (_array1: 'a array) (_array2: 'b array) : unit =
  if Array.length _array1 <> Array.length _array2 then begin
    raise Exit
  end
  else begin
    for i = 0 to Array.length _array1 - 1 do
      _func _array1.(i) _array2.(i)
    done;
  end