Euler's 6 in Haskell