"Source: Text/Group/GrpFP.text";
"Line: 7969";
"Date: Mon May 17 16:13:13 2021";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Group/GrpFP.text, line: 7969
// Example: H78E61 ()
print "Example: H78E61";
ei := GetEchoInput();
SetEchoInput(true);
F<a,b> := FreeGroup(2);
G := quo< F | (b, a, a) = 1, (a * b * a)^4 = 1 >;
Q, fQ := pQuotient(G, 2, 6);
Order(Q);
assert $1 eq 524288;
fQ;
SetEchoInput(ei);
