uses crt;
var s : string; i : byte;
f1, f2 : text;
begin
clrscr;
assign(f1, 'XAUGON.INP'); reset(f1);
assign(f2, 'XAUGON.OUT'); rewrite(f2);
readln(f1, s);
i := 1;
while i <= length(s) - 1 do
begin
if s[i] = s[i + 1] then
begin delete(s, i, 1); i := i end
else i := i + 1;
end;
write(f2, s);
close(f1); close(f2);
readln
end.