/f(%stdin)(r)file def f 30 string readline 65{f read clear{=}stopped 0 0 f 60
string readline pop{32 sub 64 mod or exch 6 sub 8 mod dup -6 ne{2 copy bitshift
4 index exch write}if exch 6 bitshift}forall}repeat