[{(%stdin)(r)file 9 string readline exch 0 exch{48 sub exch 8 mul add}forall
exch not{exit}if}loop]0 1 index{xor}forall exch{dup 7 mod 2 mod{xor}repeat
16777216 or 8 9 string cvrs 1 8 getinterval =}forall
Note that non-ascii characters in the above source code will be escaped (such as \x9f).