asunder by yshl

(%stdin)(r)file 700 string readstring 11 1 127{0 3 index{2 index eq{1
add}if}forall dup 0 gt{( : )dup 0 4 index put print dup 9 le{( )print}if =[}if
def}for

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

download

return to the top page