Euler's 11 in Haskell