Posted to tcl by jdc at Fri Mar 05 13:10:06 GMT 2010view pretty

proc wordlist { l } {
	set rl [split [string map {\  \0\  \n \ \n} $l] " "]
    }