\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) call null putc jump -0(0b) mark null call +0(0b) push +41(6b) sub dup jneg +0(0b) call null copy +11(4b) push +5(3b) mul sub push +681(10b) swap div push +3(2b) mod dup puti mark +0(0b) push +0(0b) dup getc retr ret