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