System.in.eachLine{n=p=0
it.each{v=[I:1,V:5,X:10,L:50,C:100,D:500,M:1e3][it];n+=p=p<v?v-2*p:v}
println n}