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

(setq add3 (adder 3))

(print (add3 8))