let get_all_project_addresses_for (gl:student list) =
let rec get_rec cur_list rem_stu_list = match rem_stu_list with
| [] -> cur_list
| s::c -> let keys = H.assoc_to_keys s.teams in
get_rec (remove_doubles (cur_list@keys)) c
in List.sort compare (get_rec [] gl)