(1) ->
R:=Expression Integer
X:=XDistributedPolynomial(B,R)
b:=[a::X for a in enumerate()$B]
t0:=0$X
t1:=1$X
t2:=b.1*b.2
t3:=b.3*t2 - t2*b.3
vl:=varList t3
leadingMonomial t3
reductum t3
degree t3
t4:=x*t3+y^2*t2+z^3*t1
degree t4
leadingMonomial t4
degree t4
leadingCoefficient t4
coefficients t4
X has XFreeAlgebra(B,R)