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


(print (equal 'a (first '(a 2 3 4))))