'fill' (http://software-lab.de/doc/refF.html#fill) does the job in some cases as well and is a bit easier to read...
: (de adder (N) (let @X N (fill '((x) (+ x @X))))) -> adder : (adder 1) -> ((x) (+ x 1)) : (adder 2) -> ((x) (+ x 2)) : ((adder 1) 99) -> 100 /Lindsay