getVarWordBytes :: Parser ByteString
getVarWordBytes
  = Parser $ APS.scan True
      $ \s b -> if s
                  then  Just $ testBit b 7
                  else  Nothing
getVarWordBytes :: Parser ByteString
getVarWordBytes
  = Parser $ APS.scan True
      $ \s b -> if s
                  then  Just $ testBit b 7
                  else  Nothing
getVarWordBytes
  = Parser $ APS.scan True
      $ \s b -> if s
                  then  Just $ testBit b 7
                  else  Nothing