Update euler3.hs