x=[10**(205558%ord(c)%7)%9995for c in raw_input()]
print sum(n-p%n*2for p,n in zip([0]+x,x))

##</code><code>##

t=p=0
for r in raw_input():n=10**(205558%ord(r)%7)%9995;t+=n-2*p%n;p=n
print t

##</code><code>##

t=0
for r in raw_input():n=10**(205558%ord(r)%7)%9995;t+=n-2*t%n
print t

##</code><code>##

use List::Util 'reduce';
print reduce{$a+$b-2*$a%$b}map{10**(19&654115/ord)%1645}<>=~/./g

##</code><code>##

print reduce(lambda t,n:t+n-2*t%n,(10**(19&654115//ord(r))%1645for r in raw_input()))

##</code><code>##

p gets.chomp.bytes.map{|c|10**(205558%c%7)%9995}.reduce(0){|t,n|t+n-t%n*2}
# or:
p gets.chomp.bytes.reduce(0){|t,c|t+(n=10**(205558%c%7)%9995)-t%n*2}

##</code><code>##

# Perl:
reduce{$a+$b-$a%$b*2}map{10**(7&69303333/ord)%9995}<>=~/./g
# Python:
reduce(lambda t,n:t+n-t%n*2,(10**(7&69303333//ord(r))%1999for r in raw_input()))

##</code><code>##

t=0;t+=N-t%N*2while 0<N=10**(494254%getc/9)%4999/2;p t
$.+=N-~-$.%N*2while 1<N=10**(494254%getc/9)%4999;p$./2

##</code><code>##

n=1;$.+=n/2-n%n=10**(494254%C/9)%4999while C=getc;p$.

##</code><code>##

while 0<N=10**(494254%getc/9)%4999/2

##</code><code>##

while N=10**(494254%getc/9)%4999/2

##</code><code>##

n=t=1;$<.bytes{|c|t+=n/2-n%n=10**(494254%c/9)%4999};p t

##</code><code>##

n=s=0;roman.bytes{|c|s+=n-2*n%n=10**(205558%c%7)%9995};s+n

##</code><code>##

s=0;roman.bytes{|c|s+=(n=10**(205558%c%7)%9995)-s%n*2};s

##</code><code>##

a=0
for e in raw_input():v=10**(84179%ord(e)%5)>>(e in'VLD');a+=v-2*a%v
print a

##</code><code>##

10**(84179%ord(e)%5)>>(e in'VLD')

##</code><code>##

1 . E.(3^77%ord)%7>>y/VLD//

##</code><code>##

hash(r+"magicstrng")%1001