let (|->) teacher1 teacher2 =
   (fun student examiners grades -> 
      let student,grades = teacher1 student examiners grades in
      teacher2 student examiners grades
   )