let update_group_size gnum size = 
  do_something_group (fun g -> g.size := size) (fun () -> ()) gnum