zipMaybe :: [a] -> [b] -> [(a, Maybe b)]
zipMaybe (x:xs) (y:ys) = (x, Just y)  : zipMaybe xs ys
zipMaybe :: [a] -> [b] -> [(a, Maybe b)]
zipMaybe (x:xs) (y:ys) = (x, Just y)  : zipMaybe xs ys
zipMaybe (x:xs) (y:ys) = (x, Just y)  : zipMaybe xs ys