program expr; var s,s1,sm:string; r,k,n,i,ny:integer; verem:array[1..250] of integer; vmut:integer; ch:char; function cc(s:string;a,b:integer):string; begin delete(s,1,a-1); delete(s,b+1,255); cc:=s; end; Begin readln(n); for i:=1 to n do begin readln(s); vmut:=0;sm:=s;r:=1; while r<=length(s) do begin if s[r]='(' then begin inc(vmut); verem[vmut]:=r; end; if s[r]=')' then begin ny:=verem[vmut];dec(vmut); if ny>1 then begin ch:=s[ny-1]; if r' ' then write(s[r]); writeln; end; end.