#!/usr/bin/perl -w

use strict;
use Loop_unroll;

my $x;

for($x=0;$x<8;$x++)
{
    my $f=fact($x);
    print "factorial($x)=$f\n";
}

sub fact
{
    return(1) if ($_[0] <= 0);
    return $_[0]*fact($_[0]-1);
}