Euler stuff on Haskell