"Source: Text/Algebra/AlgBas.text";
"Line: 1704";
"Date: Fri Sep 26 12:10:11 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgBas.text, line: 1704
// Example: H94E11 ()
print "Example: H94E11";
ei := GetEchoInput();
SetEchoInput(true);
graded := [];
for i := 1 to 50 do
    A := BasicAlgebra(SmallGroup(32,i));
    B := AssociatedGradedAlgebra(A);
    boo, map := IsIsomorphic(A, B);
    if boo then Append(~graded, i); end if;
end for;
graded;
SetEchoInput(ei);
