<>;$\+=$w=$a==$_&&$w+1,$a=$_+1for glob<>;print