let ignore_grades teacher = 
   (fun student examiners grades -> 
      let (res,_) = teacher student examiners grades in
      (res,grades)
   )