let add_people_to_team (stu:student) (resp:resp) (padd:paddress) (teamnum:int) = 
  let tims = stu.teams in 
  let ntim = make_steam ~proj:padd ~n:teamnum ~r:resp () in 
    H.update_assoc tims padd ntim;
    increase_team_gpt stu.group padd teamnum