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