(@ client request .reply +-
    (# net x (% 
                 ''127.0.0.1 .ip
                        8080 .port
                       10000 .timeout
             ) 
             (@ pipe +-
                 (# char-out pipe request
                  # char-in pipe .reply)
             )
    -
        (+N_TCP+N_PEER .x)
    )
)
