Loops and Calculations

\newcounter{i} \setcounter{i}{1}
\newcounter{j} \setcounter{j}{0}
\newcounter{r} \setcounter{r}{0}
\usepackage{pstricks}
\usepackage{ifthen}
\usepackage{calc}
\psset{unit=.66mm}
\begin{document}
\begin{pspicture}*(100, 100)
  \pspolygon(0, 0)(100, 0)(100, 100)(0, 100)
  \psset{linewidth=.1pt}
  \whiledo{\value{i}<25}{%
    \setcounter{j}{\value{i}*4}
    \setcounter{r}{\value{i}*3}
    \pscircle(\value{j},\value{j}){\value{r}}
    \stepcounter{i}  
  }
\end{pspicture}
\end{document}