#!perl
$a=uc($ARGV[0]);
%y=(I,1,V,5,X,10,L,50,C,100,D,500,M,1000);
for(;$i<length($a);) {
	$H=$y{substr($a,$i,1)};
	$L=$y{substr($a,++$i,1)};
	$H < $L?$H*=-1:$H;
	$m+=$H;
}
print "$m\n";