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


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