(@ thread 'listener pipe +-                      (@ listener +-
    (.* [# chars] pipe >                             (# net x (%
        (# char-in pipe .request                                  ''127.0.0.1 .ip
         # process request .response                                     8080 .port
         # char-out pipe response)                                       2000 .timeout
    )                                                         ) 
)                                                             (@ pipe +-
                                                                  (start thread pipe)
                                                              )
                                                     -
                                                         (+N_TCP+N_LISTENER .x)
                                                     )
                                                 )
