(defun broi(l br)
    (cond
        ((null l)0)
        ((listp(car l))(+(broi(car l)br)(broi(cdr l) br)))
        ((eq br (car l))(+ 1 (broi(cdr l) br)))
        (t(broi(cdr l) br))
        )
    )



(defun parno (broj)
    (cond
       ;((null lista)nil)

        ((eq(mod broj 2)1)t)
        (t nil)

        )
    )

(defun daliE (l b)
    (cond
       ; ((listp (car l))(cons(daliE l (car l))(daliE l (cdr l))))
        ((eq(parno(broi l b))t)t)
        (t nil)
        )
    )

(defun glavna(l)
    (cond
        ((null l)nil)
        ((listp (car l))(cons(glavna(car l))(glavna(cdr l))))
        ((eq(daliE l (car l)) nil)(cons(car l)(glavna (cdr l))))
        (t(glavna (cdr l)))

        ))



(print (glavna `(1 2 (3 1 (3) 1 (4 2 (2 4))) 1 2)))