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