// Genus 2 curves downloaded from the LMFDB on 01 December 2020.
// Query "{'cond': 7549}" returned 1 curves.
// Below are two lists, one called labels, and one called data (in matching order).
// Each entry in the data list has the form:
// [[f coeffs],[h coeffs]]
// defining the hyperelliptic curve y^2+h(x)y=f(x).
//
// To create a list of curves, type "curves:= make_data();"
labels := [*\
"7549.a.7549.1"*];
data := [*\
[*[*-2, -1, 3, 0, -2*], [*1, 1, 0, 1*]*]*];
function make_data()
R:=PolynomialRing(Rationals());
return [HyperellipticCurve(R![c:c in r[1]],R![c:c in r[2]]):r in data];
end function;