#include <bits/stdc++.h>
using namespace std;
template <class c>
struct rge {
  c b, e;
};
template <class c>
rge<c> range(c i, c j) {
  return rge<c>{i, j};
}
template <class c>
auto dud(c* x) -> decltype(cout << *x, 0);
template <class c>
char dud(...);
struct debug {
  template <class c>
  debug& operator<<(const c&) {
    return *this;
  }
};
const long long sz = 1e5 + 5;
const long long mod = 1e9 + 7;
const long double PI = acos(-1);
const long double eps = 1e-10;
const long long INF = 1e18 + 5;
long long power(long long n, long long k, long long m) {
  long long ans = 1;
  while (k) {
    if (k & 1) {
      ans = (ans * n) % m;
      k--;
    } else {
      n = (n * n) % m;
      k /= 2;
    }
  }
  return ans;
}
long long add(long long x, long long y) {
  long long res = x + y;
  res %= mod;
  res += mod;
  res %= mod;
  return res;
}
long long mul(long long x, long long y) {
  long long res = x * y;
  res %= mod;
  res += mod;
  res %= mod;
  return res;
}
long long NC2(long long n) {
  long long res = mul(n * (n + 1) / 2, 1LL);
  return res;
}
void solver() {
  string s;
  cin >> s;
  long long n = s.size();
  long long dp[n + 1];
  dp[n] = 0;
  long long pot = 1, x = 1;
  for (int i = int(n) - 1; i >= 0; i--) {
    dp[i] = add(dp[i + 1], mul(pot, x));
    pot = mul(pot, 10);
    x++;
  }
  long long ans = 0;
  for (int i = 0; i < int(n); i++) {
    long long val = s[i] - '0';
    ans = add(ans, mul(mul(NC2(i), val), power(10LL, n - i - 1, mod)));
    ans = add(ans, mul(val, dp[i + 1]));
  }
  cout << ans << "\n";
}
int main() {
  ios_base::sync_with_stdio(0);
  cin.tie(0);
  cout.tie(0);
  cerr.tie(0);
  long long T = 1;
  for (int i = 1; i < int(T + 1); i++) {
    solver();
  }
  return 0;
}
