"Source: Text/Module/ModRng.text";
"Line: 730";
"Date: Fri Sep 26 12:10:11 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Module/ModRng.text, line: 730
// Example: H60E3 ()
print "Example: H60E3";
ei := GetEchoInput();
SetEchoInput(true);
P<x> := PolynomialRing(IntegerRing());
M := RModule(P, 4);
a :=  M ! [ 1+x, -x, 2+x, 0 ];
b := M ! [ 1+x+x^2, 0, 1-x^7, 2*x ];
a + b;
-a;
a - b;
(1-x + x^2)*a;
a*(1-x);
a[3];
a[3] := x - 2;
a;
ElementToSequence(a - b);
Support(a);                                  
SetEchoInput(ei);
