Problem 43 Haskell