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