sub factorial {
     my $n = shift;
     return $n * &factorial( $n - 1 );
}