type:="A7";
W:=CoxeterGroup(type);
G,phi:=ReflectionGroup(W);
R:=CharacterRing(G);
G:=ReflectionGroup(CoxeterGroup("A7"));
R:=CharacterRing(G);
characterTable:=[
R![1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1],
R![1,-1,1,1,-1,1,1,-1,1,-1,1,1,-1,-1,1,1,-1,1,-1,-1,-1,1],
R![7,5,-1,3,1,4,1,3,-1,-1,1,2,-1,2,0,-1,1,0,-1,0,0,-1],
R![7,-5,-1,3,-1,4,1,-3,-1,1,1,2,1,-2,0,-1,-1,0,1,0,0,-1],
R![14,4,6,2,0,-1,2,-2,2,2,0,-1,-2,1,-1,0,0,0,0,-1,1,-1],
R![14,-4,6,2,0,-1,2,2,2,-2,0,-1,2,-1,-1,0,0,0,0,1,-1,-1],
R![20,10,4,4,2,5,-1,2,0,2,0,0,1,1,1,1,-1,-1,0,0,-1,0],
R![20,-10,4,4,-2,5,-1,-2,0,-2,0,0,-1,-1,1,1,1,-1,0,0,1,0],
R![21,9,-3,1,-3,6,0,3,1,-1,-1,1,0,0,-2,0,0,0,1,-1,0,1],
R![21,-9,-3,1,3,6,0,-3,1,1,-1,1,0,0,-2,0,0,0,-1,1,0,1],
R![28,10,-4,4,2,1,1,-2,0,-2,0,-2,1,1,1,-1,-1,0,0,0,1,1],
R![28,-10,-4,4,-2,1,1,2,0,2,0,-2,-1,-1,1,-1,1,0,0,0,-1,1],
R![35,5,3,-5,-3,5,2,1,-1,1,-1,0,2,-1,1,0,0,0,-1,0,1,0],
R![35,-5,3,-5,3,5,2,-1,-1,-1,-1,0,-2,1,1,0,0,0,1,0,-1,0],
R![42,0,-6,2,0,-6,0,0,2,0,-2,2,0,0,2,0,0,0,0,0,0,-1],
R![56,4,8,0,4,-4,-1,0,0,0,0,1,1,-2,0,-1,1,0,0,-1,0,1],
R![56,-4,8,0,-4,-4,-1,0,0,0,0,1,-1,2,0,-1,-1,0,0,1,0,1],
R![64,16,0,0,0,4,-2,0,0,0,0,-1,-2,-2,0,0,0,1,0,1,0,-1],
R![64,-16,0,0,0,4,-2,0,0,0,0,-1,2,2,0,0,0,1,0,-1,0,-1],
R![70,10,-2,2,-2,-5,1,-4,-2,0,0,0,1,1,-1,1,1,0,0,0,-1,0],
R![70,-10,-2,2,2,-5,1,4,-2,0,0,0,-1,-1,-1,1,-1,0,0,0,1,0],
R![90,0,-6,-6,0,0,0,0,2,0,2,0,0,0,0,0,0,-1,0,0,0,0]];
A:=MatrixAlgebra(RationalField(), 7 );
conjugacyClasses:=
[<1,1,A![1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1]>,
<2,28,A![1,1,1,1,1,1,0,0,0,-1,-1,-1,-1,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,-1,-1,-1,-1,0,0,0,1,1,1,1,1,1]>,
<2,105,A![0,0,-1,0,0,0,0,0,-1,0,0,0,0,0,-1,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,1,0,0,0,0,-1,-1,-1,0,0,0,0,1,0,0]>,
<2,210,A![1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,1,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,1,0,0,0]>,
<2,420,A![0,-1,-1,-1,-1,-1,-1,0,1,1,1,0,0,0,0,0,0,0,1,1,0,0,0,-1,-1,-1,-1,0,0,0,1,1,1,0,0,0,0,0,-1,-1,0,0,-1,-1,-1,0,0,0,0]>,
<3,112,A![0,1,0,0,0,0,0,-1,-1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1]>,
<3,1120,A![0,-1,-1,-1,-1,0,0,0,1,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,-1,-1,-1,-1,0,0,0,1,1,1,0,-1,-1,-1,-1,-1,-1,0,1,1,1,1,0,0,0]>,
<4,420,A![0,-1,-1,-1,-1,-1,-1,0,1,1,1,1,1,0,0,0,0,-1,-1,-1,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,-1,-1,-1,-1,-1,0,0,1,1,0,0,0,0,0]>,
<4,1260,A![0,0,0,0,1,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,1,1,1,1,1,0,0,0,-1,-1,-1,-1,0,0,0,1,1,1,1,1,-1,-1,-1,-1,-1,-1,-1]>,
<4,1260,A![0,0,0,0,1,0,0,0,0,0,-1,-1,0,0,0,0,-1,0,0,0,0,-1,-1,0,0,0,0,0,1,1,1,1,1,1,1,0,-1,-1,-1,-1,-1,-1,0,1,1,1,1,1,0]>,
<4,2520,A![1,1,1,1,1,0,0,0,0,-1,-1,-1,0,0,0,0,1,1,0,0,0,0,0,0,0,1,1,1,0,-1,-1,-1,-1,-1,-1,0,1,1,0,0,0,0,0,0,0,1,1,1,0]>,
<5,1344,A![1,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,1,1,1,0,-1,-1,-1,-1,-1,-1,0,1,1,1,1,0,0,0,0,0,0,0,1,0,0,0,0,0,-1,-1,0]>,
<6,1120,A![0,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,0,0,1,1,1,1,0,0,0,0,0,0,-1,0,0,0,0,0,0,1,1,1,0,0,-1,-1,-1,-1,-1,0,0,1,0,0,0,0,0]>,
<6,1120,A![0,0,1,0,0,0,0,-1,-1,-1,0,0,0,0,1,1,1,1,0,0,0,0,-1,-1,-1,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1]>,
<6,1680,A![-1,-1,0,0,0,0,0,1,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,1,0,0,0,0,0,-1,-1,0,0,0,-1,-1,0,0,0,0,0,1,0,0,0]>,
<6,3360,A![0,0,-1,-1,0,0,0,0,-1,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,-1,0,0,0,0,-1,-1,0,0,0,0,0,1,1,1,1,-1,-1,-1,-1,-1,-1,-1]>,
<6,3360,A![0,-1,-1,-1,0,0,0,0,1,1,0,0,0,0,-1,-1,-1,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,-1,0,0,0,0,0,0,1,1,0,0,-1,-1,-1,-1,-1]>,
<7,5760,A![0,0,0,0,1,0,0,0,0,0,-1,-1,0,0,-1,-1,-1,0,0,0,0,1,1,1,1,1,1,0,0,0,-1,-1,-1,-1,0,0,-1,0,0,0,0,0,0,1,1,1,1,1,1]>,
<8,5040,A![0,1,1,1,0,0,0,0,0,0,0,1,1,1,-1,-1,-1,-1,-1,-1,-1,1,1,1,1,1,0,0,0,0,0,0,0,1,0,0,0,-1,-1,-1,-1,0,0,0,1,0,0,0,0]>,
<10,4032,A![1,1,1,1,1,1,0,0,0,0,0,-1,-1,0,0,0,0,0,1,0,0,0,0,0,0,0,1,1,0,0,-1,-1,-1,-1,-1,0,-1,0,0,0,0,0,0,1,1,0,0,0,0]>,
<12,3360,A![0,0,0,-1,-1,-1,0,0,0,0,1,1,1,1,0,0,0,0,0,-1,-1,0,0,0,0,-1,0,0,0,-1,-1,-1,0,0,0,0,1,0,0,0,0,0,-1,-1,0,0,0,0,0]>,
<15,2688,A![0,0,0,0,0,1,0,0,0,0,-1,-1,-1,0,0,0,0,1,1,1,1,0,-1,-1,-1,-1,-1,-1,0,1,0,0,0,0,0,0,0,1,1,0,0,0,-1,-1,-1,-1,0,0,0]>];

d:=rec<data|
        W:=W,
        G:=G,
        R:=GModule(G),
        T:=characterTable,
        C:=conjugacyClasses,
        phi:=phi,
        type:=type>;