; q    
(setq A (if (boundp 'A) (+ 1 A) 1) ) ; $A++;