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