RationalAffinePoints(L: LIST of RINGELEM): LIST of LIST of RINGELEM
/**/ Use QQ[x,y,z]; /**/ L := [x^3-y^2+z-1, x-2, (y-3)*(y+2)]; /**/ RationalAffinePoints(L); [[2, -2, -3], [2, 3, 2]]