> E := EllipticCurve([GF(17) | 0,0,0,1,0]);
> Order(E![0,0]);
2
> E := EllipticCurve([GF(NextPrime(949508254824)) | 0,0,0,1,0]);
> Order(E![0,0]);
2
> E := EC("37A");
> E;
Elliptic Curve defined by y^2 + y = x^3 - x over Rational Field
> G,f := MordellWeilGroup(E);
> P := f(G.1);
> P;
(0 : 0 : 1)