/*
Elliptic curves downloaded from the LMFDB downloaded on 25 July 2021.
Below is a list called data. Each entry has the form:
[*[*field_poly*],[*Weierstrass Coefficients, constant first in increasing degree*]*]
*/
P := PolynomialRing(Rationals());
data := [*\
[*[*x^3 - x^2 - 2*x + 1*], [*[*1,0,0*],[*-2,0,1*],[*-1,0,1*],[*81,-190,-221*],[*1532,-2384,-2926*]*]*]*]
;