<>;$_=`tr 0 -`;print s/\b1\b//g&/^\W*2?\W*$/?A:B