Select Code to Download

$\+=($n="1E@-"%9995)-$\%$n*2while$/=\1,IXCMVLD=~<>;print

$\+=($n="1E@-"%9995)-$\%$n*2while$/=\1,IXCMVLD=~<>;print
$\+=$n-2*$n%($n="1E@-"%9995)while$/=\1,IXCMVLD=~<>;print
...
$\+=($n=1+substr'004999',"@-",3)-$\%$n*2while VLDMCXI=~getc;print
$\+=$'-$\%$'*2while I1V5X10L50C100D500M1e3=~getc;print
$\+=($n="1E@-"%9995)-$\%$n*2while IXCMVLD=~getc;print

$b=++$I;$$_=$b*=$^F^=7for V,X,L,C,D,M;
$\+=$n-$\%$n*2while$n=${+getc};print

<?for($M=2*$D=5*$C=2*$L=5*$X=2*$V=5*$I=1;$n=${fgetc(STDIN)};$t+=$n-2*$
+t%$n)?><?=$t;