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

##</code><code>##

M       1000    1000
D       500     500
C       100     100
L       50      50
X       10      10
V       5       5
I       1       1