program bt20;
uses crt;
var St,sz:string;
i,j,S,r:integer;
k:longinT;
F,Y:text;
        procedure KHAIBao;
        Begin
        CLRSCR;
        Assign(F,'D:\69\TONGSO.INP');
        Assign(Y,'D:\69\TONGSO.OUT');
        Reset(F);
        Rewrite(y);


        End;

        Procedure Main;
        Begin
        Readln(F,st);

        For j:=1 to length(st) do
        Begin

                for i:=1to length(st)-j+1 do
                Begin
                sz:='';
                sz:=Copy(st,i,j);
                val(sz,k,r);
                if sz[1]<>'0' then S:=S+k;
            end;
            End;
        End;
Begin
        KHAIBAO;
        Main;
        main;
        Writeln(Y,S);
        Close(F);
        Close(Y);
        Readln;
End.