"Source: Text/LieTheory/GrpCox.text";
"Line: 2642";
"Date: Wed Nov  6 12:03:34 2019";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/LieTheory/GrpCox.text, line: 2642
// Example: H105E35 ()
print "Example: H105E35";
ei := GetEchoInput();
SetEchoInput(true);
mij:=[1,3,1,2,3,1,2,3,2,1,2,2,2,3,1,2,2,3,2,2,1];
E6 := CoxeterGroup(GrpFPCox, SymmetricMatrix(mij) );
J := {1,3,5};
drs := Transversal(E6,J);
ttt := WGidealgens2WGtable([drs[1398],drs[156],drs[99]],J);
nwg := WGtable2WG(ttt);
TestWG(E6,nwg);
SetEchoInput(ei);
