#!perl -lp s!.!y$IVCXL91-I0$XLMCDXVIII$dfor$X[$_].=4x$&%1859^7!egfor+0..3999;@Y{@X}=0..@X;y/m/-/;s/\w+/+$Y{$&}/g;$_=$X[eval]