"Source: Text/Ring/RngGal.text";
"Line: 788";
"Date: Tue Jun  7 22:27:15 2016";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Ring/RngGal.text, line: 788
// Example: H54E2 ()
print "Example: H54E2";
ei := GetEchoInput();
SetEchoInput(true);
R<w> := GaloisRing(3, 3, 2);                             
#R;
assert $1 eq 729;
P<x,y,z> := PolynomialRing(R, 3);
I := ideal<P | [x^2 - w*y, 3*y^3 - 3*w*x*z, 9*z^5 - 9*w]>;         
GroebnerBasis(I);
SetEchoInput(ei);
