set q {puts -nonewline "set q {$q};eval \$q;#;q$\ lave;\}[string reverse $q]\{ q tes"};eval $q;#;q$ lave;}"set q {\]q$ esrever gnirts[}\;eval \$q;#;q$\ lave;}q${ q tes" enilwenon- stup{ q tes
Note that non-ascii characters in the above source code will be escaped (such as \x9f).