REBOL[]foreach c read %/dev/fd/0[if c < c: lowercase c[prin" "]prin c]