(setf p '(John Q Public))
p
(setf x 10)
(+ x x)
(+ x (length p))