$h{0}=0;
$\+=$-=++$%-($h{$x+=/A/*2-1}//=$%)-$\for<>=~/./g;print