#!/usr/local/bin/sbcl --script
(defun first-name (name) (first name))
(print (first-name '(Sunil Kumar)))