Resposta ao exercício 45
(defun posicao (elem lista) (if (eql elem (first lista)) 0 (1+ (posicao elem (rest lista)))))