/*
Elliptic curves downloaded from the LMFDB downloaded on 28 November 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^2 + 1*], [*[*1,0*],[*1,1*],[*1,0*],[*-203,-732*],[*3158,-7865*]*]*],\
[*[*x^2 + 1*], [*[*0,1*],[*-1,-1*],[*0,1*],[*-162,-717*],[*-2668,8651*]*]*]*]
;