sub foo {
	my ($n) = @_;
	sub {$n += shift}
}