haskell problem 4