TRUNG PASCAL

var s:string;
    t:longint;
procedure giai;
var     i:longint;
begin
       readln(s);
    for i:=length(s) downto 2 do
        if s[i]=s[i-1] then 
            delete(s,i,1);
       writeln(s);
end;

begin
    assign(input, 'trung.inp');reset(input);
    assign(output, 'trung.out');rewrite(output);
    readln(t);
    for i:=1 to t do
        giai;
end.