Evaluated set ret {}; set evil_code {eval {. mwahahahaha i am doing evil}}; set the_key [rot13 $evil_code]; set thecharacter {}; foreach thecharacter $the_code thesecret $the_key {lappend ret [expr $thecharacter ^ $thesecret]}; join $ret

vars/500d1f6901ee60d7c5c15207ede04a75e3d80ab0

@@ -0,0 +1 @@
+scalar {}