"Source: Text/Group/GrpFP.text";
"Line: 7949";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Group/GrpFP.text, line: 7949
// Example: H80E61 ()
print "Example: H80E61";
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);
