Update Euler_function.hs