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