<>;$s+=$_ for@c=sort{$b-$a}glob<>;print$c[0]>2|$c[1]>1|$s%2<1?B:A