more euler in haskell