let get_group_project = 
  do_something_group_project (fun p -> p) (fun () -> empty_project)