ll@n,@x,@y,m=x+y,d[m]{},s=0;
rep(i,n){
	ll@p;char@c;
	@[s+=p+,d[i%m]+=]p*(c&1?:-1);
}
sortA(m,d);
wt(s/2-sum(d(y)));