#!/usr/local/bin/sbcl --script
(defun double (x) (* x 2))

(double 2)