func main()
	var n: int :: cui@inputInt()
	var k: int :: cui@inputInt()
	var s: []char :: cui@input()
	var i: int :: k - 1
	var nestLevel: int :: 0
	while(true)
		do nestLevel :+ s[i] = '(' ?(1, -1)
		if(nestLevel = 0)
			do cui@print("\{i + 1}\n")
			ret
		else
			do i :+ nestLevel > 0 ?(1, -1)
		end if
	end while
end func