"Source: Text/RepThy/ModAlg.text";
"Line: 1333";
"Date: Fri Sep 26 12:10:12 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/RepThy/ModAlg.text, line: 1333
// Example: H99E10 ()
print "Example: H99E10";
ei := GetEchoInput();
SetEchoInput(true);
G := TransitiveGroup(8, 5);
TransitiveGroupDescription(G);
R := AbsolutelyIrreducibleModules(G, Rationals());
R;
R := R[5];
WriteGModuleOver(R, CyclotomicField(5));
AbsoluteModuleOverMinimalField($1);
k := QuadraticField(3);
SchurIndices(Character(R), k);
A := SplittingField($1);
A;
A := NumberField(A);
A;
A := AbsoluteField(A);
A;
WriteGModuleOver(R, A);
WriteGModuleOver(R, A : Subfield);
SetEchoInput(ei);
