#!perl -pl
map{y/IVXLC/XLCDM//s//$&-9?$&-4?I x$&:IV:IX/e&s/I{5}/V/while/\d/;$$_=$n++}@R=0..3999;
y/m/-/;s/\w+/+${$&}/g;$_=$R[eval]