euler #8 in haskell