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