sub makeIncr {
  my $incr = $_[0];
  return map { $_ += $incr };
}