let make_exam examiners student =
   List.map (fun examiner -> examiner student) examiners