:: [Char] -> [Int] -> [(Char, Int)] package:safe

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