let remove_item g i =
  let rec iter = function
      [] -> []
    | i2 :: q ->
        if i = i2 then
          q
        else
          i2 :: iter q
  in
  g.group_items <- iter g.group_items