"Source: Text/Geometry/ModAbVar.text";
"Line: 7997";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/ModAbVar.text, line: 7997
// Example: H148E109 ()
print "Example: H148E109";
ei := GetEchoInput();
SetEchoInput(true);
J := JZero(100);
G := CuspidalSubgroup(J); G;
[Eltseq(x) : x in Generators(G)];
H := RationalCuspidalSubgroup(J); H;
D := Decomposition(J); A := D[1];
CuspidalSubgroup(A);
Generators(CuspidalSubgroup(A));
RationalCuspidalSubgroup(A);
TorsionMultiple(A);
assert $1 eq 2;
SetEchoInput(ei);
