(print "car=")
(print (car (quote A B C)))
(print "\n")

(print "cdr=")
(print (cdr (quote A B C)))
(print "\n")

(print "list=")
(print (list 'A 'B 'C))
(print "\n")

(print "cons=")
(print (cons (list (quote B C) (quote D E))))
(print "\n")

(print "cons=")
(print (cons (list 'B (quote C D))))
(print "\n")

(print "cons=")
(print (cons (list (quote A B) 'C)))
(print "\n")

(print "cons=")
(print (cons (list 'A 'B)))
(print "\n")

(print "atom=")
(print (atom (quote A B)))
(print "\n")

(print "atom=")
(print (atom 'A))
(print "\n")

(print "append=")
(print (append (quote A B) 'C))
(print "\n")


