ArrFlats(A: LIST): LIST
/**/ use QQ[x,y]; /**/ A := [x, x-y, y]; /**/ ArrFlats(A); [[ideal(0)], [ideal(x), ideal(x -y), ideal(y)], [ideal(x, y)]]