Guess what it does by leonid

a=*0..256
$><<[a.reverse+a-a[13,7]]*' '

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

download

return top