NonZero(L:LIST or VECTOR):LIST
/**/ Use R ::= QQ[x,y,z]; /**/ NonZero([0,0,3, ideal(y),0]); [3, ideal(y)]