begin
repeat
var n,i,s:comp=0;read(s);for i:=18downto 1do n:=i*(n+s div(10pow i)mod 10);writeln(n)until 1=0end.