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