var
 s:string;
 pd,ps,i:integer;
begin
 readln(s);
 pd:=pos('.', s);
 i:=1;
 while (i<pd) do
  begin
   while (s[i]<>'.') do
   inc(i);
   pd:=i;
   inc(i);
    while (i<pd) and (ord(s[i])>=48) and (ord(s[i])<=57) do
     inc(i);
     if((i-pd-1)>2) then
      begin
       delete (s,pd+3,i-pd-3);
      pd:=pd-(i-pd-3);
     end;
    end;
    writeln(s);
   end.