let xml_of_ts_blk_vrb (blk_vrb : ts_blk_vrb) : Xml.xml = match blk_vrb with |Cs_blk_vrb (vrb_lines : ts_vrb_lines) -> Xml.Element ("blk_vrb",[],xml_list_of_ts_vrb_lines vrb_lines)