var
s:string;
i,j:integer;
begin
writeln ('Input string');
readln (s);
for i:=1 to length(s) do begin
j:=i+1;
if (s[i]='.') and (s[i+1]='.') then begin
delete(s,i,2);
insert('.',s,i);
end;
end;
write (s);
readln
end.

var
 s:string;
 i:integer;
begin
 writeln ('Input string');
 readln (s);
 i:=0;
 Repeat
  Inc(i);
  If i<Length(s) then
   if (s[i]='.') and (s[i+1]='.') then
    begin
     delete(s,i,1);
     Dec(i);
    end;
 Until i=Length(s);
 writeln(s);
 readln
end.