var m,n,s:word;c:char;begin
repeat
repeat
repeat
read(c);n:=10*n+ord(c)-48until n>=m;m:=n;s:=s+m;n:=0;write(m,^`)until
eoln;readln;writeln('=',s);m:=0;s:=0until 1=0end.