\x09 \x09 \x09\x09\x09\x09\x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09\x09\x09 \x09 \x09 \x09 \x09 \x09\x09 \x09 \x09\x09\x09 \x09 \x09 \x09 \x09\x09 \x09 \x09 \x09 \x09 \x09 \x09 \x09\x09\x09\x09\x09 \x09 \x09 \x09 \x09 \x09\x09 \x09
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
Disassemble:
mark -0(0b) push +0(0b) dup geti retr call +0(0b) puti push +10(4b) putc jump -0(0b) mark +0(0b) push +1(1b) copy +1(1b) jzero null pop dup push +2(2b) div call +0(0b) dup dup mul copy +2(2b) dup mul add push +0(0b) swap stor dup add copy +1(1b) sub mul swap push +0(0b) retr swap push +2(2b) mod jzero null call null swap copy +1(1b) add mark null push +1000(10b) dup dup mul mul mod ret