[Haskell-cafe] defining mapPairs function