Finish Haskell Day Three