Nest the 0 by lpha

   
   
 
 \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 null
push +10(4b)
putc
jump +0(0b)
mark null
push +1(1b)
sub
dup
jneg -0(0b)
push +91(7b)
putc
call null
push +93(7b)
putc
ret
mark -0(0b)
push +0(0b)
puti
ret

download

return to the top page