Problem 22 Haskell