#!perl 

use strict;
use warnings;

use Acme::Roman;

# Compute factorials
sub fact {
    my $n = shift;
    return ( $n==I ) ? I : $n*fact( $n-1 );
}

for ( I, II, III, IV, V, VI ) { # I..VI does not work :(
    printf "%s! = %s\n", $_, fact($_);
}