chiPol(d,p,L,K)
i1 : QQ[d] o1 = QQ[d] o1 : PolynomialRing
i2 : T = triplet({1,2,3}, {1,3}, {0,2,3}) o2 = {{1, 2, 3}, {1, 3}, {0, 2, 3}} o2 : Triplet
i3 : chiPol(d,0,{T#0,T#1},hilbCoeff(T)) o3 = d o3 : QQ[d]
i4 : chiPol(d,1,{T#0,T#1},hilbCoeff(T)) 1 3 1 2 1 o4 = -d + -d + -d 6 2 3 o4 : QQ[d]