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