Select Code to Download

use Math::Fleximal;
my $flex =
...
  print "\n";
  $x = $x->add($one);
}

#! /usr/bin/perl -w
use strict;
...
  my $sub = sub {$fn->($_, @_) for @$range};
  return @_ ? ret_iter($sub, @_) : $sub;
}