for(;$=readline(r=0);print(r))for(i in $)n=('1e'+'IXCMVLD'.search($[i]))%9995,r+=n-r%n*2