getString :: Get CalgaryIndexFile
getString = do
  fHeader <- isolate (fromIntegral calgaryHeaderSize) get :: Get CalgaryHeader
  block <- getOneBlock
  error $ show block
  mystery1 <- getWord16le -- 121: Index to vardata?
  mystery2 <- getWord16le -- 1: Number of records?
  mystery3 <- getWord16le -- 32769 = -1
  mystery4 <- getWord16le -- 512
  mystery5 <- getWord16le -- 1
  mystery6 <- getWord16le -- 32776 = 32768 + 8 = -8
  mystery7 <- getWord16le
  mystery8 <- getWord8 -- 0
  value <- getLazyByteStringNul
  mystery9 <- getWord16le -- 32769 = -1
  mystery10 <- getWord16le -- 3104
  --      mystery9 <- getWord16le
  replicateM_ 31 $ do
              mystery10 <- getWord16le
              mystery11 <- getWord8 -- 32
              return ()
  mystery12 <- getWord16le -- 1: Number of values?
  mystery13 <- getWord8 -- 0
  mystery14 <- getWord16le -- 7: Length of platano?
  value2 <- getByteString $ fromIntegral mystery14
  mystery15 <- getWord64le
  error $ show mystery15 -- 8192: Index of first block?
getString :: Get CalgaryIndexFile
getString = do
  fHeader <- isolate (fromIntegral calgaryHeaderSize) get :: Get CalgaryHeader
  block <- getOneBlock
  error $ show block
  mystery1 <- getWord16le -- 121: Index to vardata?
  mystery2 <- getWord16le -- 1: Number of records?
  mystery3 <- getWord16le -- 32769 = -1
  mystery4 <- getWord16le -- 512
  mystery5 <- getWord16le -- 1
  mystery6 <- getWord16le -- 32776 = 32768 + 8 = -8
  mystery7 <- getWord16le
  mystery8 <- getWord8 -- 0
  value <- getLazyByteStringNul
  mystery9 <- getWord16le -- 32769 = -1
  mystery10 <- getWord16le -- 3104
  --      mystery9 <- getWord16le
  replicateM_ 31 $ do
              mystery10 <- getWord16le
              mystery11 <- getWord8 -- 32
              return ()
  mystery12 <- getWord16le -- 1: Number of values?
  mystery13 <- getWord8 -- 0
  mystery14 <- getWord16le -- 7: Length of platano?
  value2 <- getByteString $ fromIntegral mystery14
  mystery15 <- getWord64le
  error $ show mystery15 -- 8192: Index of first block?
getString = do
  fHeader <- isolate (fromIntegral calgaryHeaderSize) get :: Get CalgaryHeader
  block <- getOneBlock
  error $ show block
  mystery1 <- getWord16le -- 121: Index to vardata?
  mystery2 <- getWord16le -- 1: Number of records?
  mystery3 <- getWord16le -- 32769 = -1
  mystery4 <- getWord16le -- 512
  mystery5 <- getWord16le -- 1
  mystery6 <- getWord16le -- 32776 = 32768 + 8 = -8
  mystery7 <- getWord16le
  mystery8 <- getWord8 -- 0
  value <- getLazyByteStringNul
  mystery9 <- getWord16le -- 32769 = -1
  mystery10 <- getWord16le -- 3104
  --      mystery9 <- getWord16le
  replicateM_ 31 $ do
              mystery10 <- getWord16le
              mystery11 <- getWord8 -- 32
              return ()
  mystery12 <- getWord16le -- 1: Number of values?
  mystery13 <- getWord8 -- 0
  mystery14 <- getWord16le -- 7: Length of platano?
  value2 <- getByteString $ fromIntegral mystery14
  mystery15 <- getWord64le
  error $ show mystery15 -- 8192: Index of first block?