Euler-1 haskell