let get_group gnum = make_group gnum ~name:""; (* Does nothing if already existing *) do_something_group (fun g -> g) (fun () -> failwith("Trying to address unknown group");) gnum