setPHBit :: FiniteBits x => x -> x
setPHBit = flip setBit =<< subtract 2 . finiteBitSize
setPHBit :: FiniteBits x => x -> x
setPHBit = flip setBit =<< subtract 2 . finiteBitSize
setPHBit = flip setBit =<< subtract 2 . finiteBitSize