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