program expr;
var s,s1,sm:string[20];
    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<length(s) then begin
              case ch of
                '+','(': begin
                  ch:=s[r+1];
            case ch of
              '-': ch:='+';
              '/': ch:='*';
            end;
                end;
              end;
            end;
          end
          else if r<length(s) then begin
            ch:=s[r+1];
            case ch of
              '-': ch:='+';
              '/': ch:='*';
            end;
          end
          else begin
            delete(s,r,1);
            delete(s,ny,1);
            break;
          end;
          case ch of 
            '+','(',')': begin
                   delete(s,r,1);
                   delete(s,ny,1);
                     delete(sm,r,1);
                     delete(sm,ny,1);
                   dec(r,2);
               	 end;
            '-','*': begin
                   s1:=cc(sm,ny+1,r-ny-1);
                   if (pos('+',s1)=0) and (pos('-',s1)=0) then begin
                     delete(s,r,1);
                     delete(s,ny,1);
                     delete(sm,r,1);
                     delete(sm,ny,1);
                     dec(r,2);
                   end
                   else begin
                     for k:=ny to r do sm[k]:=' ';
                   end;
                 end;
            '/': begin
                   s1:=cc(sm,ny+1,r-ny-1);
                   if (pos('+',s1)=0) and (pos('-',s1)=0) and
                      (pos('/',s1)=0) and (pos('*',s1)=0) then begin
                     delete(s,r,1);
                     delete(s,ny,1);  
                     delete(sm,r,1);
                     delete(sm,ny,1);
                     dec(r,2);
                   end
                   else begin
                     for k:=ny to r do sm[k]:=' ';
                   end;
                 end;          
          end;
      end;
      inc(r);
    end;
    for r:=1 to length(s) do 
      if s[r]<>' ' then write(s[r]);
    writeln;
  end;
end.