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