(setq a (make-list))
(append a 'A)
(append a 'B)
(append a 'C)
(print a)
(print "\n")
