{parantezare infoarena}
{ (1+1*(2+3)) - nu se poate string , n>255...cu mult }
var a,b,d:array[1..100000] of integer;
    n,i,j,m,x:longint;
    c:char;
    f,g:text;
begin
assign(f,'parantezare.in');reset(f);
assign(g,'parantezare.out');rewrite(g);
m:=0;n:=0;j:=0;
while not eoln(f) do begin
 read(f,c); inc(j);                     {merge-...pct}
 if (c='(') then begin
                  inc(n);
                  a[n]:=j;
                 end
 else if (c=')') then begin
                       inc(m);
                       b[m]:=j;
                      end;

            end; readln(f);
readln(f,x);
for i:=1 to n do
 d[a[i]]:=b[n-i+1];
for i:=1 to x do begin
                  read(f,j);
                  write(g,d[j+1]-1,' ');
                 end;
//for i:=1 to n do write(d[a[i]],' ');


close(f);close(g);
end.