najmalkudva

(defun izramni (L)
    (cond
        ((null L) nil)
        ((listp (car L)) (append (izramni (car L)) (izramni (cdr L))))
        (t (cons (car L) (izramni (cdr L))))
    )
)

(defun broj_na_pojavuvanja (L elem)
    (cond
        ((null L) 0)
        ((eq (car L) elem) (+ 1 (broj_na_pojavuvanja (cdr L) elem)))
        (t (broj_na_pojavuvanja (cdr L) elem))
    )
)


(defun najmalkudva_tmp (L)
    (cond
        ((null L) nil)
        ((>= (broj_na_pojavuvanja L (car L)) 2) (cons (car L) (najmalkudva_tmp (remove (car L) L))))
        (t (najmalkudva_tmp (cdr L)))
    )
)

(defun najmalkudva (L)
    (najmalkudva_tmp (izramni L))
)

(print (najmalkudva '(2 (6 8) (1 2 (2 4) 6) ((1) 2))))