sub factorial
{
  my ($i) = @_;
  return 1 if ( $i <= 0 );
  return $i * factorial( $i-1 );
}