Euler's 5 in Haskell