sub decimal_to_roman {
    my $number = shift;   # Assume valid number.
    return "I" x $number;
}