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 = Secrthen s.nums <- s.nums + 1;
  if (resp = Captthen s.numc <- s.numc + 1