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