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)