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