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