Euler's 8 on Haskell