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>"