Update haskell solution -todd.hs