#!/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))