#!/usr/local/bin/sbcl --script
(defun adder (x) '(lambda (y) (+ x y)))

(setq add3 (adder 3))

(print (funcall add3 8))