print $sequence if $sequence =~ /^[^A]*(?:A[^A]*A)+[^A]*$/;