"mud.arctic.org" 2700 utf8 swap dup { [ [ [ [ print ] each-line t ] loop ] with-input-stream ] [ [ [ readln dup [ write flush ] [ drop ] if t ] loop ] with-output-stream ] } parallel-cleave