#!/usr/local/bin/sbcl --script

(defun foo (a b c) (list a b c))

(format t "~a~%" foo(1 2 3))