USING: io.encodings io.encodings.8-bit io.encodings.binary io.sockets concurrency.combinators ; : input-loop ( -- ) [ 100 read-partial dup [ latin1 decode write flush t ] [ drop f ] if ] loop ; : output-loop ( -- ) latin1 encode-output [ print flush ] each-line ; "mud.arctic.org" 2700 binary swap dup { [ [ input-loop ] with-input-stream ] [ [ output-loop ] with-output-stream ] } parallel-cleave