\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 +10(4b) push +289(9b) mark null push +1(1b) add copy +1(1b) copy +1(1b) dup getc retr sub jneg null push +2(2b) sub retr push +3(2b) mul retr putc putc jump -0(0b)