# Elliptic curves downloaded from the LMFDB downloaded on 06 May 2021.
# Below is a list called data. Each entry has the form:
# [[field_poly],[Weierstrass Coefficients, constant first in increasing degree]]
R. = QQ[];
data = [ \
[[x^4 - x^3 - 4*x^2 + 4*x + 1], [[-1,-3,1,1],[1,-3,-1,1],[1,0,0,0],[2,5,-1,-2],[1,5,-2,-2]]],\
[[x^4 - x^3 - 4*x^2 + 4*x + 1], [[-2,0,1,0],[1,0,-1,0],[0,0,0,0],[1,0,0,0],[0,0,0,0]]]]