used Data.Bits. got slightly faster.