$i=<>;
@(=@_=@)=0;
for(<>=~/./g){
	if(/\(/){
		$([@(]=$([-1]+1;
		$_[@_]=$_[-1];
		$)[@)]=$)[-1]
	}elsif($([-1]){
		$([@(]=$([-1]-1;
		$_[@_]=$_[-1]+1;
		$)[@)]=$)[-1]
	}else{
		$([@(]=$([-1];
		$_[@_]=$_[-1];
		$)[@)]=$)[-1]+1
	}
}
while($i){
	$a=$([$i]+$c;
	$b=$)[$i-1];
	if($a>$b){
		$c=$a-$b;
		$x+=$_[$i]+$b
	}else{
		$c=0;
		$x+=$_[$i]
	}
	--$i
}
print$x*2