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}