sub addn($n)
 {
  my $retsub = sub ($x) { $x + $n }
  return $retsub;
 }

##</code><code>##

sub addn($n)
 {
  my $m = $n;
  my $retsub = sub ($x) { $x + $m }
  return $retsub;
 }