program szokoztorlo;
var f,g:file of char;
    s:string;
    c:char;
begin
     readln(s);
     assign(f,s);
     assign(g,'tmp');
     reset(f);
     rewrite(g);
     while not eof(f) do
     begin
      read(f,c);
      if c<>' ' then write(g,c);
     end;
     close(f);
     erase(f);
     close(g);
     rename(g,s);
     readln
end.