"Source: Text/Algebra/AlgBas.text";
"Line: 2217";
"Date: Fri Sep 26 12:10:11 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgBas.text, line: 2217
// Example: H94E16 ()
print "Example: H94E16";
ei := GetEchoInput();
SetEchoInput(true);
G := ExtraSpecialGroup(3,2);
G;
ff := GF(3);
A := BasicAlgebra(G,ff);
A;
P := ProjectiveModule(A,1);
P;
R := JacobsonRadical(P);
R;
while Dimension(R) ne 0 do
    T := JacobsonRadical(R);
    print Dimension(R) - Dimension(T);
    R := T;
end while;
SetEchoInput(ei);
