(defun hikaku (x)
(reduce (lambda (a b) (if (eql a b) a nil))
x))