Start on problem 2 in Haskell.