"Source: Text/Group/GrpMatGen.text";
"Line: 5842";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Group/GrpMatGen.text, line: 5842
// Example: H66E33 ()
print "Example: H66E33";
ei := GetEchoInput();
SetEchoInput(true);
k<w> := GF(4);
G := MatrixGroup< 3, k | 
[w^2, 0, 0, 0, w^2, 0, 0, 0, w^2],
[w^2, 0, w^2, 0, w^2, w^2, 0, 0, w^2],
[1, 0, 0, 1, 0, w, w^2, w^2, 0],
[w, 0, 0, w^2, 1, w^2, w, w, 0],
[w, 0, 0, 0, w, 0, 0, 0, w] >;
G;
#G;
assert $1 eq 576;
A := AutomorphismGroup(G);
#A;
assert $1 eq 3456;
OuterOrder(A);
assert $1 eq 72;
F := FPGroup(A);
P := DegreeReduction(CosetImage(F, sub<F|>));
P;
SetEchoInput(ei);
