\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\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:
push +457(9b) dup push +0(0b) stor push +1(1b) push -1000(10b) mark null push +1(1b) add swap copy +2(2b) retr dup dup retr push +1(1b) swap sub stor retr push +109(7b) mul push +18(5b) add swap copy +1(1b) mul copy +3(2b) dup dup retr copy +3(2b) add swap mod dup retr puti stor mul swap dup jneg null