let group ?id ?(title="") ?(items=[]) ?(groups=[]) () =
  let g = Tdl_types.group () in
  g.group_title <- title;
  g.group_items <- items;
  g.group_groups <- groups;
  g.group_id <- id;
  g