#!/usr/local/bin/sbcl --script


(print (count-if #'(equal 'a #'(first '(a 2 3 4)))))