uses crt;
const fi = 'XAUKT.INP';
      fo = 'XAUKT.OUT';
var res, s, st: string;
    i:byte;

function add(a, b: string): string;
var ans:string;
    rem, i, tmp:byte;
begin
    rem:=0; ans:='';
    while length(a) < length(b) do a:='0' + a;
    while length(b) < length(a) do b:='0' + b;
    for i:=length(a) downto 1 do
        begin
            tmp:=ord(a[i]) + ord(b[i]) - 96 + rem;
            rem:=tmp div 10;
            tmp:=tmp mod 10;
            ans:=chr(tmp + 48) + ans;
        end;
    if rem = 1 then ans:='1' + ans;
    exit(ans);
end;

begin
//    assign(input, fi);reset(input);
//    assign(output, fo);rewrite(output);
    
    while not eof do
        begin
            readln(s);
            st:='';
    
            for i:=1 to length(s) do
                if s[i] in ['0'..'9'] then
                    st:=st + s[i]
                else
                    begin
                        res:=add(res, st);
                        st:='';
                    end;
        end;
    writeln(res);
    
//    close(input);close(output);
end.

uses crt;

var S : string; T, i, j : int64;

    f1, f2 : text;

function KT(i : byte) : string;

begin

    KT := '';

    while (S[i] in ['0' .. '9']) and (i <= length(S)) do

        begin

            KT := KT + S[i];

            delete(S, i, 1);

        end;

end;

begin

clrscr;

assign(f1, 'INPUT.INP'); reset(f1);

assign(f2, 'OUTPUT.OUT'); rewrite(f2);

T := 0;

while not eof (f1) do

    begin

        readln(f1, S);

        i := 1; while i <= length(S) do

            begin

                if S[i] in ['0' .. '9'] then

                    begin

                        val(KT(i), j);

                        T := T + j;

                    end

                else i := i + 1;

            end;

    end;

writeln(f2, T);

close(f1); close(f2);

readln

end.