USING: kernel threads io io.files io.encodings.utf8 ; IN: test : read-fifo ( -- ) "fifo" utf8 [ readln print flush ] with-file-reader read-fifo ; : read-stdin ( -- ) readln print flush read-stdin ; [ read-fifo ] "fifo-thread" spawn drop read-stdin