There is no such tool in OCaml, and you will need to write a conversion function tag_to_string : tag -> string.
, , sed :
sed -e 's/\| \(.*\)/| \1 -> "\1"/'
.
| Head -> "Head"
| Title -> "Title"
| Body -> "Body"
| H1 -> "H1"
| P;; -> "P;;"
;;.
, Emacs.