let set_resp (s:student) (padd:paddress) (tnum:int) (resp:resp) ?(abs = 0) ?(grad = -1.) () =
H.update_assoc s.teams padd (make_steam ~proj:padd ~n:tnum ~r:resp ~a:abs ~g:grad ());
s.team <- tnum; (* Write down last team number *)
s.numt <- s.numt + 1; (* Increase number of teams *)
if (resp = Secr) then s.nums <- s.nums + 1;
if (resp = Capt) then s.numc <- s.numc + 1