END{for(;k<50;k=++i/2)print$i=k*5-k%1-2*$k}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page