{p=$1 $0=OFS=_ for($159=i=1;i++<p;)for(j=160;_$--j||c;c=int(c/10))$j=(c+=i*$j)%10}1

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top