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