let rec print_group oc g =
  p oc "<div class=\"TDL_group_title\">%s</div>" g.group_title;
  p oc "<div class=\"TDL_group_body\">";
  List.iter (print_item oc) g.group_items;
  List.iter (print_group oc) g.group_groups;
  p oc "</div>"