var b,t,s:integer;
a:longint;
begin
read(a);
s:=0;
repeat
b:=a div 10;
t:= a-b*10;
s:=s+t;
a:=b;
until a<=0;
write(s);
end.