uses crt;
var
m,t,t2:string;
v,q,k,o,o2:integer;
S,b,f:real;
A:array[1..100] of real;

begin
clrscr;
s:=0;
readln(m);
q:=length(m);
for k:=1 to q do
  begin
    t:= copy(m, k, 1);
    val(t, b, o);
    if o=0 then
      begin
        A[k]:=b;
        t2:=copy(m, k+1, 1);
        val(t2,f,o2);
        if o2=0 then begin A[k]:=A[k]*10; end;
      end;
    S:=S+A[k];
  end;
   writeln;
   writeln(S:5:2);
   readln;
end.