non-working sample in lisp