anarchy golf - the source code

box world by yamaya

read s
t=$s
set `seq ${#s}`
for i;{
printf "$t${s:i-1:1}
${s:$#-i:1}"
t=%$[$#-1]s
}
rev<<<$s

Note that non-ascii characters in the above source code will be escaped (such as \x9f).