"Source: Text/Group/GrpFP.text";
"Line: 919";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Group/GrpFP.text, line: 919
// Example: H80E9 ()
print "Example: H80E9";
ei := GetEchoInput();
SetEchoInput(true);
F<x1, x2, x3, x4, x5, x6, x7, x8> := FreeGroup(8);
F8<x1, x2, x3, x4, x5, x6, x7, x8> := 
    quo< F | x1*x2=x3, x2*x3=x4, x3*x4=x5, x4*x5=x6,
             x5*x6=x7, x6*x7=x8, x7*x8=x1, x8*x1=x2>;
H<[y]>, f := Simplify(F8);
H;
f;
f(x1);
SetEchoInput(ei);
