Busca.lsp

(defun busca (Lista Elem)
  (if (eql Lista nil) 'Vacia
	  (if (eql (car Lista) Elem) "OK"
	    (busca (cdr Lista) Elem)
	  )
  )
)

(defun cuentaIterado (Lista Elem)
  	(setq N 0)
	(dolist (item lista N)
	  (if (eql item Elem) (setq N (+ N 1)))
	)
)