sub _goto_recur {
   my ($x, $y) = @_;

   if ($x <= 1) {
      return $y;
   } else {
      @_ = ($x - 1, $x * $y);
      goto &_goto_recur;
   }
}

sub goto_recur {
   my ($x) = @_;
   return _goto_recur($x, 1);
}