% mput puts the first arguement at the list of second
% arg.  That list can be empty.  
\def\mput#1{\@ifnextchar ({\@mput{#1}}{\relax}}
\def\@mput#1(#2,#3){\@ifnextchar ({\put(#2,#3){#1}\@mput{#1}}%
{\put(#2,#3){#1}}}