Пресметај без степен

(defun presmetaj (lista elem1 elem2)
 (setq lista_prazna '())
 (pogolem lista lista_prazna elem1 elem2 1)
)

  (defun pogolem (lista lista_prazna elem1 elem2 brojac)
    (cond
        ((null lista) lista_prazna)
        ((or(eq(car lista) elem1)(eq(car lista) elem2))(pogolem (cdr lista)(append lista_prazna (list brojac)) elem1 elem2 (+ 1 brojac)))
        (t (pogolem (cdr lista) lista_prazna elem1 elem2 (+ 1 brojac)))
    )
  )

  (print (presmetaj '(1 2 1 3 6 1 4 2 9) 3 2))