problem 2 in haskell