<>;$_=<>;0while s/ (\S*) (\W)/$2($1)/;print eval