s=p=0
for x in raw_input():x={6:1,19:5,21:10,9:50,0:100,1:500,10:1000}[ord(x)-67];s+=(x,x-p-p)[p<x];p=x
print s