"Source: Text/Group/GrpPerm.text";
"Line: 4014";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Group/GrpPerm.text, line: 4014
// Example: H65E24 ()
print "Example: H65E24";
ei := GetEchoInput();
SetEchoInput(true);
G := PGammaL(2, 9);
N := PSL(2, 9);
CT := CharacterTable(N);
X := SequenceToSet(CT);
XxG := CartesianProduct(X, G);
f := map< XxG -> X | x :-> x[1]^x[2] >;
Y := GSet(G, X, f);
chi := CT[2];
I := Stabilizer(G, Y, chi);
Index(G, I);
assert $1 eq 2;
[#o : o in Orbits(G, Y)];
SetEchoInput(ei);
