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

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


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