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