Short sample Lisp code