(defun is_in(el spis)
 (cond
 ((null spis) nil )
 ((eql el (car spis)) T)
 ( nul (is_in el (cdr spis)) )
 )
)

(defun remove_first(el spis)
 (cond
 ((null spis) nil )
 ((eql el (car spis)) (cdr spis))
 ( nul (cons (car spis) ( remove_first el (cdr spis) ) ) )
 )
)

(defun l8(spis)
 (cond
 ((null spis) nil )
 ((is_in (car spis) (cdr spis)) (cons (car spis) (cons (car spis) (l8 (remove_first (car spis) (cdr spis))))))
 (nul  (cons (car spis) (l8 (cdr spis))) )
 )
)