"Source: Text/Algebra/AlgBas.text";
"Line: 2199";
"Date: Thu Jun 16 15:34:16 2016";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Algebra/AlgBas.text, line: 2199
// Example: H92E16 ()
print "Example: H92E16";
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);
