"Source: Text/Geometry/ModAbVar.text";
"Line: 7997";
"Date: Fri Sep  9 15:10:23 2022";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/ModAbVar.text, line: 7997
// Example: H145E109 ()
print "Example: H145E109";
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);
