let get_group_project_name =
do_something_group_project (fun p -> let name = get_project_name p in
if (name = "") then
(Printf.sprintf "Projet n\176%s"
(pa_to_string (get_paddress p)))
else name) (fun () -> "")