Problem 7, haskell