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

(print (dbl 2))