My program surely will eat up call stack space like mad:
00^<2?2gp!1+1c

Code: Select all
00<0:6?1+0^2cp
Code: Select all
const 0
loop:
dup 0
fetch
rjmpiz done
const 1
add
rjmp loop
done:
printint
end
Code: Select all
00^< 92+?1+ 092*5+-gp!
Code: Select all
099*9*>099*9*1+>99*9*1+<<95*5-?99*9*1+<1+99*9*1+>99*9*<1+99*9*>09-6*1-g99*9*<p
Code: Select all
00^<0:0^7?+09-7-gdp!