NR==1{n=+$1;RS=FS}
NR>1{
	s=sprintf("%20s",$1);
	A=substr(s,11,10);
	B=substr(s,1,10);
	for(i=0;i<60;i++)
	{
		c[i]+=A%2;
		if(B%2)
		{
			A+=1e10;
			B=(B-1)/2;
		}
		else
		{
			B/=2;
		}
		A=int(A/2);
	}
}
END{
	ans=0;
	for(i=60;i--;)
	{
		ans=(ans*2+(n-c[i])*c[i])%(1e9+7);
	}
	print ans
}