clearHBit :: FiniteBits x => x -> x
clearHBit = flip clearBit =<< subtract 1 . finiteBitSize
clearHBit :: FiniteBits x => x -> x
clearHBit = flip clearBit =<< subtract 1 . finiteBitSize
clearHBit = flip clearBit =<< subtract 1 . finiteBitSize