program sd;
uses crt;
var a:integer;s:string;
function sdf(a:string;n:integer):integer;
begin 
 if n>=1 
 then result:=result+strtoint(a[n])+sdf(a,n-1);
end;
begin
 read(s);
 write(sdf(s,length(s))) ;
end.