<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">sub fact{
  my $n = @_[0];
  if($n &lt; 2){
    return 1;
  }
  else{
    return $n * fact($n-1);
  }
}

for($i=0; $i&lt;10000; $i++){
  &amp;fact(100);
}
</pre></body></html>