let string_of_t_doc_class (doc_class : t_doc_class) : string = match doc_class with |DOC_CHS -> "doc chs" |DOC_SECS -> "doc secs" |DOC_PARS -> "doc pars" |DOC_BLKS -> "doc blks"