ll@n,b[28]{},c[]{},z=0;
rep(n){
	ll@a;
	rep(j,28){
		++c[j];
		if(a&1<<j){
			c[j]=0;
		}
		b[j]+=c[j];
	}
}
rrep(j,28){
	z+=z+b[j];
}
wt(n*(n+1)/2*(2**28-1)-z);