(setq animals '(("giraffe" . (a1 a2))
("gazelle" . (b1 b2))
("lion" . (c1 c2))
("tiger" . (d1 d2))))

上のlistから
("giraffe" "gazelle" "lion" "tiger")
なlistを作りたいので

(defun print-elements-of-list (list)
(let (q)
(while list
(setq q (append (caar list) q))
(setq list (cdr list)))
(print q)))

としましたが、
(116 105 103 101 114 108 105 111 110 103 97 122
101 108 108 101 103 105 114 97 102 102 101)
となってしまいます。

どうすれば良いですか？