 : new-threaded-server ( class -- threaded-server )
     new
         "server" >>name
+        DEBUG >>log-level
         ascii >>encoding
         1 minutes >>timeout
         V{ } clone >>sockets

: (start-server) ( threaded-server -- )
    init-server
    dup threaded-server [
        dup name>> [
            [ listen-on [ start-accept-loop ] parallel-each ]
            [ ready>> raise-flag ]
            bi


TUPLE: threaded-server
name
log-level
secure insecure
secure-config
sockets
