let teach_graded teacher examiners student =
   let (student,grades) = teacher student examiners [] in
   (student,List.rev grades)