select int(t)[x,y;[x^2,1,x*y]]^3$

h := module([3*y^2-x^2+2*x*y,(x+y)^2*x*y-y^4,(x+y)^2]*y,
            x*[2*x^2-3*y^2,x^3*y-y^2*x^2,x^2-4*y*x])$
statgb := 3$
standard(h)$