"Source: Text/Group/GrpFP.text";
"Line: 9033";
"Date: Mon May 17 16:13:13 2021";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Group/GrpFP.text, line: 9033
// Example: H78E71 ()
print "Example: H78E71";
ei := GetEchoInput();
SetEchoInput(true);
G<a,b> := FPGroup<a,b|a*b*a^-1=b^4>;
N,f := NilpotentQuotient(G,4);
N;
for i := 1 to Ngens(N) do
N.i @@ f;
end for;
G<a,b> := FPGroup<a,b|a*b^2*a^-1=b^4>;
N,f := NilpotentQuotient(G,4);
N;
for i := 1 to Ngens(N) do
N.i @@ f;
end for;
SetEchoInput(ei);
