ArrBettiNumbers(A: LIST): LIST
/**/ use QQ[x,y]; /**/ A := [x, x-y, y]; /**/ ArrBettiNumbers(A); [1, 3, 2]