sample lisp code.