k=j=$1*2+1{for(;k--;){for(i=j;i;)$i=--i+k-j?0:k*i;print}}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page