let create_team_for_group_project gnum padd tnum spec = 
  do_something_group_project (fun p -> 
        try ignore(H.get_assoc p.teams tnum) 
        with _ -> H.update_assoc p.teams tnum (make_team ~spec:spec tnum)) 
    (fun () -> ()) gnum padd