[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