Tcl code - 1 line

Link:

Tcl, pasted on Mar 5:

1	set l {set l {L};regsub L $l $l p;puts $p};regsub L $l $l p;puts $p

Output:

1 2	set l {set l {L};regsub L $l $l p;puts $p};regsub L $l $l p;puts $p