use warnings;
use strict;

my $A = 0;
print $A +1 == 0 ? "A\n" : "B\n";