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