-- -*- M2-comint -*- hash: 815969145071906880

i1 : R = QQ[x_1..x_4]

o1 = R

o1 : PolynomialRing

i2 : T = diagonalAction(matrix {{0,1,-1,1},{1,0,-1,-1}}, R)

             * 2
o2 = R <- (QQ )  via 

     | 0 1 -1 1  |
     | 1 0 -1 -1 |

o2 : DiagonalAction

i3 : S = R^T

o3 =             2
     QQ[x x x , x x x ]
         1 2 3   1 3 4

o3 : RingOfInvariants

i4 : ambient S

o4 = R

o4 : PolynomialRing

i5 : 
