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