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

(defun add3 (x) #'(adder 3))

(print (add3 8))