#!/usr/bin/perl -w
use strict;
use Devel::Peek qw(mstat);

my $testn = shift || 50;

my $result = factorial_iterative($testn);
print "goto factorial_iterative($testn) returns $result\n";

sub factorial_iterative {
  my $n = shift;
  return fi_helper(1, 1, $n);
}

sub fi_helper {
  my ($product, $counter, $max_count) = @_;
  if ($counter > $max_count) {
    mstat "return product";
    return $product;
  } else {
    @_ = ($counter * $product, $counter + 1, $max_count);
    goto &fi_helper;
  }
}