Update Haskell Solution - Harry.hs