#include <iostream>
#include <queue>
using namespace std;

const int Lim = 1e5;
string s;
long long mul[Lim + 1], n, res;

int main() {
    cin >> s; n = s.size();
    for (int i = 1, r = n; r > 0; ++i, r -= 2) {
        mul[i] = mul[i - 1] + r;
        mul[n - i + 1] = mul[i];
    }
    
    for (int i = 0; i < n; ++i) res += (s[i] - '0') * mul[i + 1];
    cout << res;
}

uses crt;
var f:text; s:array[1..100000]of char; i,j,t,a,kq,n:longint;
begin
clrscr;
   assign(f,'THUONG.INP');reset(f);
      while not(eoln(f)) do
         begin
            inc(n);
            read(f,s[n]);
         end;
   close(f);
   assign(f,'THUONG.OUT');rewrite(f);
      for i:=1 to n do
         begin
            t:=0;
            for j:=i to n do
               begin
                  val(s[j],a);
                  t:=t+a;
                  kq:=kq+t;
               end;
         end;
      writeln(f,kq);
   close(f);
end.