ll@N,@X,@Y;vector<ll>S[X+=Y];rep(i,X)S[i]={0,0};rep(i,N){ll@P;char@A;(S[i%X][0],S[i%X][1])+=A<66?P:((-P,0));}sort(S,S+X);wt(sum[x,0,X](S[x][1])-sum[y,0,Y](S[y][0]));