REBOL[]s: #""foreach c read %../fd/0[if(#" "> c)or(c > s)[prin s: c]]