integer::N,K,i,a=0
integer,parameter::max=10000
character(len=max)::S
character,parameter::l='(',r=')'

read *,N,K
read *,S

if(S(K:K)=='(') then
 print *,'a'
 do i=K,N
 print *,a
  if(S(i:i)=='(') then
   a=a+1
   if(a==0) exit
  else if(S(i:i)==')') then
   a=a-1
   if(a==0) exit
  end if
 end do

print *,i

else
  print *,'b'
  do i=K,1,-1
  print *,a
  if(S(i:i)==l) then
   a=a+1
   if(a==0) exit
  else if(S(i:i)==r) then
   a=a-1
   if(a==0) exit
  else 
  end if
 end do

print *,i
end if
end