<>;$_=<>;print s/\b1\b//g&/^[ 0]*2?( |\b0)*$/?A:B