rebol []
http-request: {GET / HTTP/1.1
Host: localhost

}

wp: make port! tcp://localhost
wp/awake: func [event /local port] [
    port: event/port
    switch/default event/type [
        read [ read port]
        wrote [read port]
        lookup [port open port]
        connect [write port http-request]
    ][true]
]

forever [
    attempt [
        open wp
        wait [wp 0.01]
        close wp
    ]
]