Resposta ao exercício 50

(defun mapear (func lista)
  (if (null lista)
    nil
    (cons (funcall func (first lista))
          (mapear func (rest lista)))))

Esta função já existe em Lisp e denomina-se mapcar.