"Source: Text/Group/GrpFP.text";
"Line: 6748";
"Date: Mon May 17 16:13:13 2021";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Group/GrpFP.text, line: 6748
// Example: H78E52 ()
print "Example: H78E52";
ei := GetEchoInput();
SetEchoInput(true);
G<x, y> := DihedralFPGroup(6);
C, V, E := CayleyGraph(G);  C;
d := Diameter(C);  d;
p := DiameterPath(C);  p;
word := &* [ Label(E![p[i], p[i+1]]) : i in [1..d]];
word;
D := UnderlyingGraph(C);  D;
A := AutomorphismGroup(D);  A;
subs := Subgroups(A);
P := PermutationGroup(G);
exists(j){ i : i in [1..#subs] | IsIsomorphic(P, subs[i]`subgroup)};
j;
SetEchoInput(ei);
