(let ((result (member 3 '(0 1 2 3 4))))
  (if result
	  'found
	  'not-found))