Working on Haskell Day Three