(%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