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

(dbl 2)