Don't leak higher bits in putWord8 and putWord16be

Here's what I have got.
Should we put make_mask into Data.Binary.Bits.Internal?