REBOL [
    Title: "Tiny REBOL Server"
    Date: 11-Oct-1999
    File: %rebserver.r
    Purpose: {
        The distributed REBOL server that builds the REBOL system.
    }
    Note: {
        This little server can come in very handy if you need
        to coordinate a number of different systems working
        on a common task.  We use it in-house to build REBOL
        for all of our hardware platforms in parallel.  It is
        sent the scripts that need to be executed.  Note that
        this script is for secure intranet use.
    }
    Category: [util tcp net 3] 
]

server-port: open/lines tcp://:4321

forever [
    connection-port: first server-port
    until [
        wait connection-port
        error? try [do first connection-port]
    ]
    close connection-port
]