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