#pragma GCC optimize("Ofast")
#pragma GCC target("avx2")

#define rd_init() char*rp=({char*mmap();mmap(0l,1l<<25,1,2,0,0ll);})
#define rd() ({int _v=0,_c;while(_c=*rp++-48,_c>=0)_v=_v*10+_c;_v;})
#define wt(v) ({ulong _z=v;do*--wp=_z%10+48;while(_z/=10);})
#define rep(v,e) for(typeof(e)v=0;v<e;++v)
#define rrep(v,e) for(typeof(e)v=e;v--;)

typedef unsigned long ulong;

char wbuf[1<<25];
int n,q;
int a[200000];
struct { int l,r; } lr[200000];
int s[200001];
long z[200000];

void f0(){
	rd_init();
	n=rd();
	q=rd();
	rep(i,n){
		a[i]=rd();
	}
	rep(j,q){
		lr[j].l=rd()-1;
		lr[j].r=rd();
	}
}

void f1(){
	rep(b,26){
		int t=0;
		rep(i,n){
			s[i+1]=t+=a[i]>>b&1;
		}
		rep(j,q){
			int l=lr[j].l;
			int r=lr[j].r;
			int d=s[r]-s[l];
			z[j]+=(long)d*(r-l-d)<<b;
		}
	}
}

void f2(){
	char*wp=wbuf+sizeof wbuf;
	rrep(j,q){
		*--wp='\n';
		wt(z[j]);
	}
	write(1,wp,wbuf+sizeof wbuf-wp);
}

int main(){
	f0();
	f1();
	f2();
	_exit(0);
}