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 () -> "")