map{$%+=$-=$i-($a{$j+=/A/-/B/}//=$i)-$%;++$i}<>=~/./g;print$%