#!/usr/local/bin/sbcl --script (defvar x +) (princ (apply #x '(3 2)))