"Source: Text/Commut/RngInvar.text";
"Line: 562";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Commut/RngInvar.text, line: 562
// Example: H120E3 ()
print "Example: H120E3";
ei := GetEchoInput();
SetEchoInput(true);
R := InvariantRing(CyclicGroup(4), GF(2));
P<x1,x2,x3,x4> := PolynomialRing(R);
L := [
    x1^2 + x2^2 + x3^2 + x4^2,
    x1*x2 + x1*x4 + x2*x3 + x3*x4,
    x1*x3 + x2*x4
];
SetAllInvariantsOfDegree(R, 2, L);
InvariantsOfDegree(R, 2);
PrimaryInvariants(R);
SetEchoInput(ei);
