# A classic, recursive soulution.
    sub Rfactorial {
        my $i = shift;
        return 1 if $i == 0;
        return 1 if $i == 1;
        return $i * Rfactorial($i - 1);
    }