\\ Copyright (c) 2003 Henri Darmon and Adam Logan
print("reading data for Q(sqrt(37))");
\l
\r helpers;
\r fp237coefs;
\r integrate.gp;
w=quadgen(37);
\r reduce.gp
a=bnfinit(x^2-x-9);
ev=[0,2,1,-19-8*x,28+11*x];
\l