Var fi,fo:Text;
    S:String;
    i:Longint;
 Begin
  Assign(fi,'xoa_kt.inp');Reset(fi);
  Assign(fo,'xoa_kt.out');Rewrite(fo);
  Readln(fi,S);
  S:=S+Chr(ord(S[Length(S)])+1);i:=1;
  While i<Length(S) do
   Begin
    While S[i] = S[i+1] do DELETE(S,i,1);
    i:=i+1;
   End;
  DELETE(S,Length(S),1);
  Write(fo,S);
 Close(fi);Close(fo);
End.

uses crt;
var S : string;
    i : byte;
    f1, f2 : text;
    
begin
    clrscr;
    assign(f1, 'xoa_kt.inp'); reset(f1);
    assign(f2, 'xoa_kt.out'); rewrite(f2);
    read(f1, S);
    
    i := 1;
    while i < length(S) do
        begin
            if S[i] = S[i + 1] then delete(S, i + 1, 1)
            else i := i + 1;
        end;
    
    write(f2, S);
    
    close(f1); close(f2);
    
end.