/f(%stdin)(r)file def f 30 string readline 65{f read 0 0 f 60 string readline pop{32 sub 64 mod or exch 6 sub 8 mod dup -6 ne{( )dup 0 127 5 index 5 index bitshift and put print}if exch 6 bitshift}forall}repeat