(defun rester (s)
(cond ((null s) nil)
((atom s) (list s))
(t (append (rester (car s))
(rester (cdr s))))))