Haskell: Euler #3