a[NR]=$0{}END{for(;i++<48;){for(s=j=_;j<3;s=s a[k]RS)a[k=(i+j++)%3+1]=substr(a[k]substr(a[k],1,1),2);print s}}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page