THUA PASCAL

var s:string;
        n,i:longint;

procedure xoa_trai;
begin
    while s[1]='.' do
        delete(s,1,1);    //xoa ben trai
end;

procedure xoa_phai;
begin
    while s[length(s)]='.' do 
        delete(s,length(s),1);    //xoa ben phai
end;

procedure xoa_giua;
var i:longint;
begin
    i:=1;
    while i<length(s) do    //xoa o giua
       begin
           if (s[i]='.') and (s[i+1]='.') then
                   delete(s,i+1,1)
           else
                   inc(i);
       end;
end;

procedure giai;
var i:longint;   
begin
   readln(s);  
   xoa_trai;
   xoa_phai;
   xoa_giua;
   writeln(s);
end;


BEGIN
    assign(input, 'THUA.inp');reset(input);
    Assign(output, 'THUA.out');rewrite(output);
    readln(n);
    for i:=1 to n do
        giai;
    Close(input);close(output);
END.