(define (rst->html)
  (let* ((rst
          (make-external-translator
           "rst2html"
           (lambda ()
             (list "--link-stylesheet" "--syntax-highlight=short"
                   "--smart-quotes=yes" "--trim-footnote-reference-space"))))
         (dom (with-input-from-string (with-output-to-string rst) html->sxml))
         (html (serialize-sxml ((sxpath "//body/div/node()") dom))))
      (display html)))