#!perl -lp
@%=map{my$a;s/./y!IVCXL91-80!XLMCDXVIII!dfor$a.=4x$&%1859^7/eg;$$a=$/--;$a}0..3999;y/i/-/;s/\w+/${$&}/g;$_=$%[-eval]