# Elliptic curves downloaded from the LMFDB downloaded on 28 May 2022.
# Below is a list called data. Each entry has the form:
# [[field_poly],[Weierstrass Coefficients, constant first in increasing degree]]
R. = QQ[];
data = [ \
[[x^2 - x + 1], [[0,0],[1,1],[0,0],[-7,-4],[-7,-14]]],\
[[x^2 - x + 1], [[0,0],[0,1],[0,0],[2,2],[2,-1]]],\
[[x^2 - x + 1], [[0,0],[1,0],[0,0],[2,-4],[-2,1]]],\
[[x^2 - x + 1], [[0,0],[-1,-1],[0,0],[12,-6],[0,9]]]]