Трансформирај непарен со подлисти

(defun transformiraj (lista)
 (pomosna lista 0)
)

(defun pomosna (lista dlabocina)
 (cond
  ((null lista) nil)
  ((listp (car lista))(cons (pomosna (car lista)(+ dlabocina 1))(pomosna (cdr lista) dlabocina)))
  ((eq (mod (+ (car lista) dlabocina) 2) 1)(pomosna (cdr lista) dlabocina))
  ((eq (mod (+ (car lista) dlabocina) 2) 0)(cons (car lista)(pomosna (cdr lista) dlabocina)))
 )
)

(print (transformiraj '(1 2 (2 (3 8) 3 (2 (4 (7 6 9))))(2(2(3)5))7)))