zip = zipWith (\x y -> (x,y))