euler 6 in haskell