TUPLE: simple-responder ; : ( -- T ) simple-responder new ; M: simple-responder call-responder* drop drop 200 >>code "Document follows" >>message "text/html" >>content-type "raww" >>body ; : run-bbee ( -- ) main-responder set-global t development? set-global 80 httpd ;