Problem 11 Haskell