Select Code to Download

sub fact
{
...
  }; # thanks ihb for pointing out the missing semi
  $fact_tr->(@_, 1);
}