char n[100010]; l;i;f; long long r1,r2; m1=1e9; m2=1e9+7; main(){ gets(n); l=strlen(n); for(i=0;i<(l+1)/2;++i){ r1=(r1*10+n[i]-48+(i>0||l%2==0)*9)%m1; r2=(r2*10+n[i]-48+(i>0||l%2==0)*9)%m2; f=n[i]>n[l-i-1]?1:n[i]