let callback_student f =
   (fun student _ grades -> f student; (student,grades))