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