<>;($S,$T)=<>;print~~grep$S=~s/$_//*$T=~s/$_//,(A,B)x1e4