Problem 40 Haskell