<int-e> addquote <fungot> shachaf: i\'ve a long road ahead of me, it would be flattering. dudes got to act in accordance with my final wishes! they\'re the last things i ever did wish, and that makes me very sad to me!

#!/usr/bin/perl
sub k{my$t;$t=~y/IVXLC/XLCDM/,$t.=("",I,II,III,IV,V,VI,VII,VIII,IX)[$_]for/./g;$r{$t}=$_;$t}k for s""\$"..4e3;print $r{(shift=~/(\w+)/)[0]},$/