Adding problem 4 in Haskell