USING: kernel threads io io.sockets io.encodings.utf8 prettyprint math  concurrency.combinators ;

"mud.arctic.org" 2700 <inet> utf8 <client> swap dup
{ 
 [ [ [ print ] each-line ] with-input-stream ] 
 [ [ [ write flush ] each-line ] with-output-stream ] 
} parallel-cleave