(1) -> n:=5000
B:=OrderedVariableList [e[i] for i in 1..3]
e:=enumerate()$B
--List(Symbol) has OrderedSet B has OrderedSet
R:=Expression Integer
R has CommutativeRing
M:=FreeModule(R,B)
TP:=TensorPower(n,R, B, M)
t1:=tensor([e.1,e.2, e.3, e.1, e.2])$TP
t2:=tensor([e.1,e.2, e.3, e.1])$TP
t3:=tensor([e.1,e.2, e.3, e.2])$TP
t4:=tensor([e.1,e.2, e.3])$TP
T:=x*t1+y^2*t2+z^3*t3-u*t4
support T
numberOfMonomials T
leadingTerm T
leadingCoefficient T
reductum T