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 ()