Problem #48 Haskell solved