10359 -1 7{9 mod(%stdin)(r)file( )readhexstring pop 0 get 1 index{exch bitshift
or( )dup 0 3 index 127 and put print -9 bitshift exit}repeat}for