by siyb

Someone send me this link on IRC yesterday, but the TCL obfuscation seemed to readable too me, here is my version:

echo ’set __ [string map {/ n . m \
% r _ a & e} "%&/_.&"];$__ $__ |;| \
set __;__ .. map;| string .,;| [., [__ \
..] {% f & i} &%] -;| ., .__;| [.__ [__\
..] {% r & p § c / o} &%/§] &;| .__ \
&%§;& % {} {. 1};& ~ {} {. 0};| \
[&%§ [__ ..] {% n & r § i / c} §%/&]\
/;| &%§ ////;| [//// [__ ..] {_ x . e ~ r \
+ p} ._+~] <>;| //// &%.,;& + n {- {[\
& // _ {- {$_||!$_} {. $_}}]==”"&&\
[// $n]==[%]||[// $n]==[~]} {. $n;}\
{. [<> [+ [<> $n-[%]]]+[+ [<> $n-2\
]]];}};| [&%., [__ ..] {= o ! f ? r} !=?] \\;
& . _ {return $_;};| &%., _%_;| [_%_ \
[__ ..] {/ t & p . s § u} &§/.] ,;\\ {__ i 0}\
{$i<="[%][~]"} {;;;;;;;;;;;;;} {, [+ $i];/ i;\
};’ | tclsh

//edit: to be fair, this code complicates things, especially the heavy use of the rename command and the declaration of commands that handle tasks, that could easily be performed by native TCL.

//edit2: cracked it up a nodge :>