# convert to polar;

topolar(x_) := polar(abs(x),arg(x));

topolar(complex(x_,y_)):polar(abs(x,y),angle(x,y));
topolar(vector(x_,y_)):polar(abs(x,y),angle(x,y));
topolar(x^2+y^2=r_) := polarplot(sqrt(r));