foreach {x y} {another Just hacker TCL} {lappend l $y $x}; puts [join $l]

Projects

• http://jaen.saul.ee/tcl/ - CleanTCL

---