haskell problem 2