#!/usr/local/bin/sbcl --script
(defun fa (x &optional y) (list x y))