#define rd_skip() while(*rp++>=48)
#define rd() ({long _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(long v=0;v<e;++v)
#define rep3(v,s,e) for(long v=s;v<e;++v)

typedef unsigned long ulong;

ulong a[7],e[7];
unsigned const b[]={0,1,4,6,5,2};
unsigned const c[]={1,3,2,6,4,5};

#define MD 1000000007

int main(){
	a[0]=1;
	char*mmap();
	char*rp=mmap(0l,1l<<25,1,2,0,0ll);
	rd_skip();
	while(*rp){
		ulong d=*rp-'0'; rp+=2;
		ulong l=(ulong)rd()%6;
		ulong j=d*b[l];
		rep(i,7)e[i]=a[i];
		rep(i,7)a[j%7]+=e[i],a[j%7]-=a[j%7]<MD?0:MD,j+=c[l];
	}
	{
		ulong z=0;
		rep3(i,1,7)z+=i*a[i];
		z%=MD;
		char wbuf[64],*wp=wbuf+sizeof wbuf;
		wt(z);
		write(1,wp,wbuf+sizeof wbuf-wp);
	}
	_exit(0);
}