haskell problem 1