$s=$r+=1+print$s+1,$/while 102-map{$s=-$s-($'*($r-$')/($_*2-1)<<2)for//..1202}1..$r
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page