let txt_of_doc (options : Common_utils.t_txt_options) (doc : Doc_types.tr_doc) : string = try Compiler_of_doc.txt_of_tr_doc options doc with |Compiler_of_doc.Error e -> raise (Error (String.concat " " ["Compiler_of_doc.Error:";e]))