Add problem 3 in Haskell.