(defun ronriwa (list)
(memq nil (mapcar #'not list)))
(defun ronriseki (list)
(not (memq nil list)))