;;递归拆嵌套表
(defun splitList(lst / return) 
	(foreach x lst
		(setq return 
			(if (listp x) 
				(append return (splitList x))
				(append return (list x))
			)
		)
	)
	return
)