let get_group_name = 
  do_something_group (fun g -> if (!(g.name) = ""
                      then (Printf.sprintf "Groupe n\176%d" g.num)
                      else !(g.name)) (fun () -> "Groupe inconnu")