Select Code to Download

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

sub tail_factorial {
  my $total = shift; my $n = shift;
...
    goto &tail_factorial;
  }
}

sub run_ops {
  my $self = shift;
...
    }
  }
}