let print_data = function `Item item -> prerr_endline "item"; prerr_endline item.item_title | `Group g -> prerr_endline "group"; prerr_endline g.group_title