(use lowdown sxml-transforms)

(define document
  "hello [world](http://world.com).\n\nhey, what's up?\n\nbla")

(let ((result (markdown->sxml document)))
  (newline)
  (pp result)
  (SRV:send-reply (pre-post-order result universal-conversion-rules))
  (newline))

;; $ csi -s tests/run.scm 
;;
;; ((p "hello" #\space (a (@ (href "http://world.com")) "world") ".")
;;  (p "hey," #\space "what" #\' "s" #\space "up?")
;;  (p "bla"))
;;
;; <p>hello <a href="http://world.com">world</a>.</p>
;; <p>hey, what's up?</p>
;; <p>bla</p>