# Pastebin jmAdr9kt
getVarInt :: Get Word32
getVarInt = go 0
  where
    go acc = do
      b <- fromIntegral <$> Get.getWord8
      let acc' = acc `shiftL` 7 .|. (b .&. 0x7f)
      if testBit b 7
        then go acc'
        else return acc'