euler 8..11 in haskell