clearPHBit :: FiniteBits x => x -> x
clearPHBit = flip clearBit =<< subtract 2 . finiteBitSize
clearPHBit :: FiniteBits x => x -> x
clearPHBit = flip clearBit =<< subtract 2 . finiteBitSize
clearPHBit = flip clearBit =<< subtract 2 . finiteBitSize