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