GradingDim(P): INT
/**/ OrdM := MakeTermOrd(RowMat([2,3])); /**/ P := NewPolyRing(QQ, "x,y", OrdM, 1); /**/ GradingDim(P); 1