parseedn-print tag readers

For `parseedn-read`, we can pass an alist of readers to convert e.g. #uuid into a string.
Could this be done in the inverse operation, `parseedn-print`, as well?
Currently I've just patched it like so:
```
((consp datum)
(cond
((not (listp (cdr datum))) ; dotted pair
(error "Don't know how to print: %s" datum))
((eq 'edn-set (car datum))
(insert "#{") (parseedn-print-seq (cadr datum)) (insert "}"))
+ ((eq 'edn-uuid (car datum))
+ (insert "#uuid ") (parseedn-print-seq (cdr datum)))
(t (insert "(") (parseedn-print-seq datum) (insert ")"))))
```