box world by yshl

([){index 1 index 1 getinterval}def(%stdin)(r)file 99 string readline pop dup
print dup length dup 0{3[= 1 add exch 1 sub 3[print dup 0 eq{exit}if exch 2
index 1 sub{( )print}repeat}loop 2 index 1 sub -1 0{4[print pop}for

Note that non-ascii characters in the above source code will be escaped (such as \x9f).


return to the top page