(defun hikaku (list)
(let ((x (car list)))
(if (remove x list)
nil
x)))