"Source: Text/Group/GrpFP.text";
"Line: 8653";
"Date: Mon May 17 16:13:13 2021";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Group/GrpFP.text, line: 8653
// Example: H78E65 ()
print "Example: H78E65";
ei := GetEchoInput();
SetEchoInput(true);
G<a, b> := FPGroup<a, b | a^3, b^3>;
q := pQuotientProcess(G, 3, 4: Exponent := 9, Print :=1);
Display(q, 2);
NextClass(~q);
SetDisplayLevel(~q, 1);
StartNewClass(~q);
Tails(~q);
Consistency(~q);
CollectRelations(~q);
ExponentLaw(~q);
EliminateRedundancy(~q);
Display(q, 2);
SetEchoInput(ei);
