END{for(i=16;--i>o=_;$i=$(30-i)=o)for(j=25;--j;OFS=RS)o=(c=substr("\"'{[:\\$%`#.@?*-",i<j?i:j,1))o c print}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page