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

char*mmap();
#define rd(v) long v=0;{int _c;while(_c=*rp++-48,_c>=0)v=v*10+_c;}
#define wt(v) {long _z=v;do*--wp=_z%10+48;while(_z/=10);}

#define MD 1000000007

long nazo[]={
2,
500000005,
333333337,
250000003,
400000004,
166666669,
142857145,
125000002,
111111113,
};

main(){
	char*rp=mmap(0l,1l<<25,1,2,0,0ll);
	rd(a);
	long r=*rp++-'1';
	char*sp=rp;
	for(long c;c=*rp++-'0',c>=0;){
		r=r*a%MD+c;
	}
	long n=rp-1-sp;
	r=(r+1)*n;
	if(--n>0){
		long b=a;
		long s=1;
		long t=n;
		while(t){
			if(t&1){
				s=s*b%MD;
			}
			t>>=1;
			b=b*b%MD;
		}
		r+=(s*((a-1)*n-1)+1)%MD*nazo[a-2];
		
	}
	r=r%MD;
	char wbuf[64],*wp=wbuf+sizeof wbuf;
	wt(r);
	write(1,wp,wbuf+sizeof wbuf-wp);
	_exit(0);
}