sig
  type inline = [ `Code of string | `Text of string ]
  type block = [ `Paragraph of Atd_doc.inline list | `Pre of string ]
  type doc = [ `Text of Atd_doc.block list ]
  val parse_text : Atd_ast.loc -> string -> Atd_doc.doc
  val get_doc : Atd_ast.loc -> Atd_ast.annot -> Atd_doc.doc option
  val html_of_doc : Atd_doc.doc -> string
end