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