rebol[]foreach i read %/dev/fd/0[prin join i i]