map$a[++$i-($a{$j+=/A/-.5}//=$i)]=0,<>=~/^|./g;print$#a