NonZero(L:LIST or VECTOR):LIST
Use R ::= QQ[x,y,z]; NonZero(["a",0,0,3, Ideal(y),0]); ["a", 3, Ideal(y)] -------------------------------