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