(defun in-list (array)
	(cond
		((null (cdr array)) array)
		(t (list (car array) (in-list (cdr array))))
	)
)

(defun out-list (array)
	(cond
		((null (cdr array)) array)
		(t (cons (car array) (out-list (cadr array))))
	)
)

(setf a (in-list '(a b c d)))
(print a)
(print (out-list a))