<>;$\+=$-=($y=$'?$c+$_-($c=$')*2?2:$y+1:1)*//-$\for glob<>;print