program Hello;
uses crt;
var s,st:string;
i,n,tong,so:longint;
begin
readln(s);
s:= s + ' ';
for i:= 1 to length(s) do
begin
if s[i] in ['0'..'9'] then st:= st + s[i]
else
begin
val(st, so);
if st <> '' then write(so, ' ');
tong:= tong + so;
st:= '';
end;
end;
writeln;
writeln(tong);
readln;
end.