NR==1{N=+$1;RS=FS}
NR>1{
	N=split($1,A,"");
	for(i=0;i<60;i++)
	{
		c[i]+=A[1]%2;
		cur=0;
		for(j=N;j>0;j--)
		{
			if((A[j]+cur)%2)
			{
				A[j]=(A[j]+cur-1)/2;
				cur=10;
			}
			else A[j]=(A[j]+cur)/2;
		}
	}
}
END{
	ans=0;
	for(i=60;i--;)
	{
		ans=(ans*2+(N-c[i])*c[i])%(1e9+7);
	}
	print ans
}