"Source: Text/Geometry/ModAbVar.text";
"Line: 2245";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/ModAbVar.text, line: 2245
// Example: H148E43 ()
print "Example: H148E43";
ei := GetEchoInput();
SetEchoInput(true);
S := CuspForms(43);
N := Newforms(S); N;
f := N[2][1]; f;
A := ModularAbelianVariety(f); A;
Newform(A);
J := JZero(43);
D := Decomposition(J); D;
Newform(D[2]);
A := ModularAbelianVariety("43B");
A eq D[2];
assert $1;
SetEchoInput(ei);
