PROGRAM xaugon;
USES crt;
VAR x,g:STRING[250];  i:BYTE; f1,f2:TEXT;
PROCEDURE docvao;
BEGIN       
assign(f1,'Xaugon.INP');
reset(f1);
assign(f2,'Xaugon.OUT');
rewrite(f2);
Readln(f1,x); 
close(f1);    
END;
PROCEDURE Xoa;
VAR i:BYTE;
BEGIN 
FOR i:=1 TO length(x) DO 
IF x[i] <> x[i+1] THEN g:=g+x[i];
END;  
PROCEDURE Inra;
BEGIN
Write(f2,g);
close(f2);
END;    
BEGIN
docvao;
xoa;
inra;

END.