var s:string;
    i,n:byte;
    f1,f2:text;
function check():boolean;
var d,d1,i:byte;
begin
   d:=0;d1:=0;
   for i:=1 to length(s) do
     begin
         if s[i]='(' then inc(d);
         if s[i]=')' then inc(d1);
         if d1>d then exit(false);
     end;
   if d1<>d then exit(false);
   exit(true);
end;
begin
   assign(f1,'KIEMTRA.INP');reset(f1);
   assign(f2,'KIEMTRA.OUT');rewrite(f2);
   readln(f1,n);
   for i:=1 to n do
      begin
          readln(f1,s);
          if check()=true then writeln(f2,'YES')
             else writeln(f2,'NO');
      end;
   close(f1),close(f2);
end.

uses crt;
var f,f1:text; i,n,d,g:longint; s,t:string; 
begin
clrscr;
   assign(f,'input.pas');reset(f);
   assign(f1,'output.pas');rewrite(f1);
      readln(f,n);
      for g:=1 to n do  
         begin
            readln(f,t); s:='';
            for i:=1 to length(t) do 
               if (t[i]='(')or(t[i]=')') then s:=s+t[i];
            repeat
               d:=0;
               for i:=1 to length(s)-1 do 
                  if (s[i]='(')and(s[i+1]=')') then begin inc(d); delete(s,i,2); end;
            until d=0; 
            if s='' then writeln(f1,'YES') else writeln(f1,'NO'); 
         end; 
   close(f1);        
   close(f);
end.