#!/usr/local/bin/sbcl --script
(print (listp (member 1 '(7 9 5 2 2 4 3))))
(print (equal 'a 'a))
(print (atom 'a))
(print (listp 'a))
;(print (equalp a a))
;(print (eql a a))

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