Escreva um programa LISP que duplica os elementos de uma lista usando uma função recursiva chamada duplicar_elementos() - Exercícios Resolvidos de LISP

; vamos criar uma função recursiva que duplica os elementos
; de uma lista e retorna a nova lista
(defun duplicar_elementos(lista)
  ; a lista está vazia?
  (if (eql lista nil)
    nil
  ; efetua mais uma chamada recursiva 	
  (append (list (car lista) (car lista)) 
    (duplicar_elementos (cdr lista))))
)

(let (lista)
  ; vamos criar uma nova lista
  (setq lista '(1 2 3 4 5 6 7 8))

  ; vamos mostrar o conteúdo da lista original
  (format t "A lista original é: ~D" lista)