let combine = fun a1 a2 -> if Array.length a1 <> Array.length a2 then invalid_arg "Misc.Array.combine: arrays don't have same size"; Array.init (Array.length a1) (fun i -> (a1.(i), a2.(i)))