sub u {IXCMVLD=~$_;"1E@-"%9995}
sub i {XCMVLD=~$_;"1E@+"%9995}
print $_, v9, u, v9, i, $/ for qw(M D C L X V I);