zip-функция в Haskell

реализация функции zip, которая принимает два списка в качестве параметров и возвращает новый список пар. Я получил это до сих пор

myZip [] [] = []
myZip (x:xs) (y:ys) = [(x,y)] ++ myZip xs ys

какая-нибудь помощь?