Language: Tcl Author: Joe Miller Notes: This has the unfortunate side effect of putting itself in x. set x {set x {@}; regsub @ $x $x x; set x}; regsub @ $x $x x; set x Author: Frank Stajano (fstajano@orl.co.uk) Notes: basically the same as above set l {set l {L};regsub L $l $l p;puts $p};regsub L $l $l p;puts $p Author: Joe Miller join [split a{a} a] {join [split a{a} a] } Author: Joe Miller join {{} \{ \}} {join {{} \{ \}} }