Problem 2 haskell