-- -*- M2-comint -*- {* hash: -1950840363 *}

i1 : R = ZZ/101[a..d]

o1 = R

o1 : PolynomialRing

i2 : S = ZZ/101[p..s]

o2 = S

o2 : PolynomialRing

i3 : (f,g) = newCoordinateSystem(S,matrix{{a+2*b,3*c-d}});

i4 : f

o4 = map(S,R,{50p, 3r, p + 2q, 3r - s})

o4 : RingMap S <--- R

i5 : g

o5 = map(R,S,{-2a, a - 50c, 34b, b - d})

o5 : RingMap R <--- S

i6 :