arc> (counts '(a b c a a a c)) #hash((a . 4) (c . 2) (b . 1))
Thanks for the suggestions; I've updated my blog post.
-----