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