マクロを初めて作っているのですが、思うように動きません
ヒントを頂けないでしょうか？

下記は不具合点のみを抜き出したソースです
リストの個数を数えもし2を越えたらカウンタをクリアするものです
実行結果からも分るように、一旦はクリアされるのですが
forの次の繰り返しではクリアが無効とされてしまいます
たぶんスコープだと思うのですが解決方法が分りません

動作確認ができましたらここで公開させて頂きます
ちょっと役に立つマクロだと思います
(知識の無いところは力で対応しているのでちょっと恥ずかしい)

ソース
\documentclass{jarticle}
\begin{document}
\makeatletter
\newcount\@cnt
\def\@mycs#1/{%
　\@cnt=0 [CLR]\the\@cnt\par
　\@for\member:=#1\do{%
　　\the\@cnt
　　\advance\@cnt1 [add1] \the\@cnt\quad
　　\ifnum\@cnt>2{\@cnt=0 [clr] \the\@cnt\quad}\fi}}
\def\List{aaa,bbb,ccc,ddd}
\@mycs\List/
\makeatother
\end{document}

実行結果
[CLR]0
0[add1] 1 1[add1] 2 2[add1] 3 [clr] 0 3[add1] 4 [clr] 0