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