#!/usr/local/bin/sbcl --script
(print (count #'(lambda (a) (member 'a)) #(1 2 3 a)))