Adding problem 2 in haskell