Finish Haskell Day Two