let rec copy_group g =
  let items = List.map copy_item g.group_items in
  let groups = List.map copy_group g.group_groups in
  group ?id: g.group_id
    ~title: g.group_title
    ~items ~groups
    ()