Problem 11, haskell