1000 digits by nn

END{for(FS=_;j<128;)a[sprintf("%c",j)]=j++
for($0="w\x1bJyC\x01#\\H5\x01U\x1c-J7&;gr{.ZD /\x07\x11\x11z,J{F=\x1e8]j\x1d\x0c^\"f,'\x16\x19CZC\x06z\",pmB\x03\x01\x02Jn4@\x0c&9Q\x0fZ9C\x16b\x10-\x1di@-c\x08wwQuk\x1dC/e~p[s>\x1cO+0\x10%\x1e<'\x05juy\x04\x1d\x04Sy\x1c\x07B7[g-\x18]\\Zj%ec?ILytCZ\x06JJS\x05\x19";i<1e3;)printf int(a[$(i/7+1)]/2^(i++%7))%2}

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

download

return top