\count@\authornumber
\@tempcnta0
\let\:temp\relax
\let\@author\empty
\loop
\ifnum\count@>0
\advance\@tempcnta by \@ne
\edef\@author{\@author \ifx\@author\empty\else, \fi
\:temp{\number\@tempcnta}}%
\advance\count@ by \m@ne
\repeat
\let\ignorespaces\empty
\let\unskip\empty
\def\:temp##1{\csname theauthor##1\endcsname}%
-_-_-