\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 +12(4b) mark -0(0b) call null dup getc call null add dup copy +2(2b) div jzero +0(0b) push +1(1b) puti mark +0(0b) copy +1(1b) mod dup push +10(4b) div push +7(3b) mul add push +48(6b) add putc dup dup getc retr putc jump -0(0b) mark null dup dup getc retr push +48(6b) sub dup push +10(4b) div push +7(3b) mul sub ret