#!/usr/bin/perl
##
## fatt.pl <x>
##
#
# &fatt (<x>)
#
sub fatt
{
    local ($x) = $_[0];
    #
    local ($i) = ($x - 1);
    #
    while ($i > 0)
      {
        $x = $x * $i;
        $i--;
      }
    #
    return $x;
}
##
## Inizio del programma.
##
$x = $ARGV[0];
#
$fatt = &fatt ($x);
#
print "$x! = $fatt\n";
#
