(defun print-list (l)
    (cond ((not (null l))
	   (print (first l))
	   (print-list (rest l)))))