ArrTuttePoly(A: LIST): RINGELEM
/**/ use QQ[x,y]; /**/ A := [x, x-y, y]; /**/ ArrTuttePoly(A); t[1]^2 +t[1] +t[2]