sub revB{ ord pack 'b8', unpack 'B8', chr( shift ) }