getCalgaryBlockIndex :: Get CalgaryBlockIndex
getCalgaryBlockIndex = do
  let getOneIndex = do
        mystery1 <- getWord64le
        getWord64le
  indices <- V.fromList <$> untilM' getOneIndex isEmpty
  return $ CalgaryBlockIndex $ V.map fromIntegral indices
getCalgaryBlockIndex :: Get CalgaryBlockIndex
getCalgaryBlockIndex = do
  let getOneIndex = do
        mystery1 <- getWord64le
        getWord64le
  indices <- V.fromList <$> untilM' getOneIndex isEmpty
  return $ CalgaryBlockIndex $ V.map fromIntegral indices
getCalgaryBlockIndex = do
  let getOneIndex = do
        mystery1 <- getWord64le
        getWord64le
  indices <- V.fromList <$> untilM' getOneIndex isEmpty
  return $ CalgaryBlockIndex $ V.map fromIntegral indices