"Source: Text/Ring/FldQuad.text";
"Line: 511";
"Date: Fri Sep 26 12:10:11 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Ring/FldQuad.text, line: 511
// Example: H37E5 ()
print "Example: H37E5";
ei := GetEchoInput();
SetEchoInput(true);
d := 302401481761723680;
m := 76814814791186002463716;
Q<z> := QuadraticField(-d);
O<w> := sub< MaximalOrder(Q) | 6 >;
f, s := NormEquation(O, m);
s, Norm(s[1]);
SetEchoInput(ei);
