| LIB "inout.lib";
ring r= 0,(x,y,z),ds;
poly f=((x+y)*(x-y)*(x+z)*(y+z)^2);
lprint(f,40);
==> x3y2-xy4+2x3yz+x2y2z-2xy3z-y4z+x3z2
==> +2x2yz2-xy2z2-2y3z2+x2z3-y2z3
module m = [f*(x-y)],[0,f*(x-y)];
string s=lprint(m); s;"";
==> x4y2-x3y3-x2y4+xy5+2x4yz-x3y2z-3x2y3z+xy4z+y5z+x4z2+x3yz2-3x2y2z2-xy3z2
==> +2y4z2+x3z3-x2yz3-xy2z3+y3z3,
==> 0,
==>
==> 0,
==> x4y2-x3y3-x2y4+xy5+2x4yz-x3y2z-3x2y3z+xy4z+y5z+x4z2+x3yz2-3x2y2z2-xy3z2
==> +2y4z2+x3z3-x2yz3-xy2z3+y3z3
==>
execute("matrix M[2][2]="+s+";"); //use the string s as input
module m1 = transpose(M); //should be the same as m
print(matrix(m)-matrix(m1));
==> 0,0,
==> 0,0
|