"Source: Text/RepThy/AlgGrp.text";
"Line: 803";
"Date: Fri Sep 26 12:10:12 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/RepThy/AlgGrp.text, line: 803
// Example: H93E4 ()
print "Example: H93E4";
ei := GetEchoInput();
SetEchoInput(true);
A := AbelianGroup([2,2,2,2,2]);
FG := GroupAlgebra(GF(2), A);
J := JacobsonRadical(FG);
J;          
JPow := [ J ];  
I := J;
while Dimension(I) ne 0 do
    I := I*J;
    Append(~JPow, I);
end while;
[ Dimension(I) : I in JPow ];  
IsNilpotent(Random(J));
SetEchoInput(ei);
