Add problem 1 in Haskell.