Sum[(-x)^(k),k=0, infinity ]