map{
	$_=reverse;
	y/()/)(/;
	my($a,$b,$c,$d,$e);
	for(/./g){
		++$a if/\(/;
		$b+=$a,$a=0 if/\*/;
		$d+=$c,$c=$b,$b=0 if/\^/;
		$e+=$d if/\)/;
	}
	print$e+0,$"
}(<>)x2