Update Elliptic.hs