"Source: Text/Incidence/AlgSym.text";
"Line: 506";
"Date: Wed Jun 28 17:27:41 2017";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Incidence/AlgSym.text, line: 506
// Example: H155E4 ()
print "Example: H155E4";
ei := GetEchoInput();
SetEchoInput(true);
R := Rationals();
M := SFAMonomial(R);
P<[x]> := PolynomialRing(R, 3);
f := -3*x[1]^3 + x[1]^2*x[2] + x[1]^2*x[3] + x[1]*x[2]^2 + x[1]*x[3]^2 -
         3*x[2]^3 + x[2]^2*x[3] + x[2]*x[3]^2 - 3*x[3]^3;
M!f;
SetEchoInput(ei);
