Select Code to Download

  DB<103> sub f1 { ++$a < $_[0] ? goto &f1 : return $a}
 
...
1000
  DB<105> print $a
1000