character subsets by yshl

[9{(%stdin)(r)file 1 string readstring pop 2 copy eq{pop}if}repeat]dup length 4
8 2 3 index bitshift{2 index{1 index 3 index neg bitshift 1 and{print/}repeat
pop 2 mul}forall pop}for

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

download

return to the top page