setHBit :: FiniteBits x => x -> x
setHBit = flip setBit =<< subtract 1 . finiteBitSize
setHBit :: FiniteBits x => x -> x
setHBit = flip setBit =<< subtract 1 . finiteBitSize
setHBit = flip setBit =<< subtract 1 . finiteBitSize