program backt(input,output);
procedure t;
var c:char;
begin
   read(c); if c<>'.' then t;
  if c<>'.' then  write(c)
end;
begin
   t
end.