sub factorial {
    my ($n, $accumulator) = @_;
    $accumulator ||= 1;
    if ($n == 0) { 
         return $accumulator;
    }
    @_ = ($n - 1, $n * $accumulator);
    goto &factorial;
}