sub tail_factorial {
  my $total = shift; my $n = shift;
  if ($n == 0) {
    return $total;
  }
  else {
    @_ = ($n * $total, $n - 1);
    goto &tail_factorial;
  }
}