(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_1(spis spis1)
 (cond
 ((null spis) nil )
 ((null spis1) spis)
 ((is_in (car spis1) spis) (cons (car spis1) (l8_1 (remove_first (car spis1) spis) spis1)))
 (nul  (l8_1 spis (cdr spis1) ) )
 )
)