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