(defun media-da-turma(funcao turma)
     (let ((num-alunos (list-length turma)))
       (/ (mapcar #'funcao (third (first turma))) num-alunos)
     )
)