:: [c] -> [b] -> [(c, b)] package:safe

zipExact xs ys =
| length xs == length ys = zip xs ys
| otherwise              = error "some message"