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