USING: kernel namespaces io.servers http.server http.server.dispatchers http.server.responses ; IN: http-unzip : ( -- trivial-responder ) 200 "Hello World!" ; : set-main-responder ( -- ) "" add-responder main-responder set-global ; : run-http-unzip ( -- ) set-main-responder 8080 httpd wait-for-server ; MAIN: run-http-unzip