;******************************* ;CAR ;******************************* ; I/O examples: (setf car-test (list (cons '(a) 'a) (cons '(a b) 'a) (cons '(b a c) 'b) (cons '(d c b a) 'd) ) )