#include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #define X first #define Y second #define pb push_back #define rep(X,Y) for (int (X) = 0;(X) < (Y);++(X)) #define reps(X,S,Y) for (int (X) = S;(X) < (Y);++(X)) #define rrep(X,Y) for (int (X) = (Y)-1;(X) >=0;--(X)) #define rreps(X,S,Y) for (int (X) = (Y)-1;(X) >= (S);--(X)) #define repe(X,Y) for ((X) = 0;(X) < (Y);++(X)) #define peat(X,Y) for (;(X) < (Y);++(X)) #define all(X) (X).begin(),(X).end() #define rall(X) (X).rbegin(),(X).rend() #define eb emplace_back #define UNIQUE(X) (X).erase(unique(all(X)),(X).end()) #define Endl endl using namespace std; typedef long long ll; typedef pair pii; typedef pair pll; template using vv=vector>; template ostream& operator<<(ostream &os, const vector &t) { os<<"{"; rep(i,t.size()) {os< ostream& operator<<(ostream &os, const pair &t) { return os<<"("< inline bool MX(T &l,const T &r){return l inline bool MN(T &l,const T &r){return l>r?l=r,1:0;} #define out(args...){vector a_r_g_s=s_p_l_i_t(#args, ','); e_r_r(a_r_g_s.begin(), args); } vector s_p_l_i_t(const string &s, char c){vector v;int d=0,f=0;string t;for(char c:s){if(!d&&c==',')v.pb(t),t="";else t+=c;if(c=='\"'||c=='\'')f^=1;if(!f&&c=='(')++d;if(!f&&c==')')--d;}v.pb(t);return move(v);} void e_r_r(vector::iterator it) {} template void e_r_r(vector::iterator it, T a, Args... args){ if(*it==" 1"||*it=="1") cerr< substr((*it)[0] == ' ', it -> length()) << " = " << a << ", "; e_r_r(++it, args...);} const ll MOD=1e9+7; ll modpow(ll r,ll n,ll m=MOD){ ll re=1,d=r%m; if(n<0)(n%=m-1)+=m-1; for(;n;n/=2){ if(n&1)(re*=d)%=m; (d*=d)%=m; } return re; } template struct modInt{ int v; modInt(int v=0):v(v){} modInt operator+(const modInt &n){return v+n.v modInt operator+(const T &n){return v+n modInt operator-(const T &n){return v-n<0 ? v-n+mod : v-n;} template modInt operator*(const T &n){return ll(v)*(n%mod)%mod;} template modInt operator/(const T &n){return ll(v)*modpow(n%mod,-1,mod)%mod;} modInt& operator+=(const modInt &n){v+=n.v; if(v>=mod) v-=mod; return *this;} modInt& operator-=(const modInt &n){v-=n.v; if(v<0) v+=mod; return *this;} modInt& operator*=(const modInt &n){v=ll(v)*n.v%mod; return *this;} modInt& operator/=(const modInt &n){v=ll(v)*modpow(n.v,-1,mod)%mod; return *this;} template modInt& operator+=(const T &n){v+=n; if(v>=mod) v-=mod; return *this;} template modInt& operator-=(const T &n){v-=n; if(v<0) v+=mod; return *this;} template modInt& operator*=(const T &n){v=ll(v)*n%mod; return *this;} template modInt& operator/=(const T &n){v=ll(v)*modpow(n,-1,mod)%mod; return *this;} }; template ostream& operator<<(ostream &os,const modInt &n){return os< modInt operator+(const T &n,const modInt &m){return m.v+n modInt operator-(const T &n,const modInt &m){return n-m.v<0 ? n-m.v+mod : n-m.v;} template modInt operator*(const T &n,const modInt &m){return ll(m.v)*(n%mod)%mod;} template modInt operator/(const T &n,const modInt &m){return ll(m.v)*modpow(n%mod,-1,mod)%mod;} typedef modInt mint; typedef modInt<1000000000> Mint; template modInt modpow(modInt r,ll n){ modInt re(1); if(n<0)(n%=mod-1)+=mod-1; for(;n;n/=2){if(n&1) re*=r; r*=r;} return re;} vector fact,finv,inv; mint comb(ll n,ll r){ if(n &re,int n){ re.resize(n+1); re[1]=1; for(int i=2;i<=n;++i)re[i]=re[MOD%i]*(MOD-MOD/i);} void Facts(vector &re,int n){ re.resize(n+1); re[0]=1; rep(i,n)re[i+1]=re[i]*(i+1);} void Factinvs(vector &re,const vector &inv,int n){ re.resize(n+1); re[0]=1; rep(i,n)re[i+1]=re[i]*inv[i+1];} public: Doralion(int n){ Modinvs(inv,n); Facts(fact,n); Factinvs(finv,inv,n);} } doralion(212345); int main(){ ios_base::sync_with_stdio(false); cout<>s; int n=s.size(); mint re=0; Mint ret=0; vector pw(112345); pw[0]=1; vector pwr(112345); pwr[0]=1; rep(i,102345) pw[i+1]=pw[i]*10, pwr[i+1]=pwr[i]*10; reps(i,1,n){ re+=pw[(i+1)/2-1]*9; ret+=pwr[(i+1)/2-1]*9; } //out(re,ret,1); int m=(n+1)/2; int f=1; rep(i,m){ re+=max(0,s[i]-'1')*pw[m-1-i]; ret+=max(0,s[i]-'1')*pwr[m-1-i]; } string t=s; reps(i,m,n) t[i]=s[n-1-i]; //out(s,1,t,1); if(s>=t) re+=1, ret+=1; cout<