wait, putBit can't use shiftR
Data.Bits.Coded