haskell sum-of-multiples