sub a{
	$b=$c=0;
	$b+=$c=($d=($e=index IVXLCDM,$_)%2*4+1 . 0 x ($e/2))-($c<$d)*2*$c for $_[0]=~/./g;
	$b
}