(defun muda-n-esimo (n lista elem) (if (= n 0) (cons elem (rest lista)) (cons (first lista) (muda-n-esimo (1- n) (rest lista) elem))))