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

##</code><code>##

(defun foo(n)
	(lambda (i) (incf n i)))