m@main=getLine>>=print.foldr(#)0>>m
c#s=s+sum[n*signum(4*n-s)|(a,n)<-zip"IVXLCDM"z,a==c]
z=1:5:map(10*)z