(defun flatten (l)
   (let ((s (car l)))
     (if (cdr l)
	 (setf (cdr (last s))
	       (flatten (cdr l))))
     s))