Problem 42 Haskell