REBOL [ Title: "Load Junk" Date: 7-Jan-2009 Author: "Christopher Ross-Gill" Exports: [load-junk] ] load-junk: use [chars space][ chars: complement space: charset " ,^/^-" func [text [string!] /local out val junk][ out: copy [] junk: copy "" while [not tail? text][ either attempt [set [val text] load/next text][ unless empty? junk [append out junk junk: copy ""] append out val ][ parse text [ any space copy val some chars any space text: (junk: reform [junk val]) ] ] ] unless any [empty? junk junk == last out][append out junk] out ] ]