<>=~$";$%=$';$_=<>;0while s/\((_*)\)/_$1_/,"@-"+1-$%&&$%-"@+";print"@-"+1^$%^"@+"