perl -e "use Math::Roman qw|roman|; $a = roman('I'); $a+=
1000; print $a->bstr();"
MI