(defun <:format (message &rest args) (write-string (escape-as-html (apply #'format nil message args)) *yaclml-stream*) (values))