% sum_of_money.sty : unofficial name
%
%       \Number{1234567} --> 1,234,567
%
% Newsgroups: fj.comp.texhax
% From: tsato@ibuki.kuee.kyoto-u.ac.jp (Toru Sato)
% Subject: Re: sum of money
% Date: Thu, 20 Jan 1994 09:08:14 GMT
%
\def\Number#1{%
\@tempcnta=0\@tfor\@tempa :=#1\do{\advance\@tempcnta by 1}%
\@tfor\@tempa :=#1\do{\@tempa\advance\@tempcnta by -1
\ifnum\@tempcnta > 0%
\@tempcntb=\@tempcnta\divide\@tempcntb by 3\multiply\@tempcntb by 3
\advance\@tempcntb by -\@tempcnta
\ifnum\@tempcntb=0,\fi\fi}}
%
