bad_get_poly := proc ()
	local p, n, i;
	n := nargs;
	if ( n=0 ) then
	   RETURN (1);
	else
	   p := 1;
	   for i from 1 to n do
	       p := p*(x-args[i]);
	   od;
	   p := expand (p);
	   RETURN (p);
	fi;
end;