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