> restart:

> plot([[k*cos(t),k*sin(t),t=0..2*Pi]$k=1..20],scaling=constrained,axes=none,color=blue);

>