1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
(set 'a '1) (defun j () (princ a) (set 'a (+ a 1))) (j) (j) (princ a) (defun i () (set 'b 9)) (i) (princ b)