sub factorial { 
  my $result = 1;
  $result   *= $_ for 1 .. $_[0];
  $result
}