     [ 1 bitstream bs:read 0 = ]
     [
         bitstream
-        2 bitstream bs:read ! B
+        2 bitstream bs:read
         { 
             { 0 [ inflate-raw ] }
             { 1 [ inflate-static ] }


: zlib-inflate ( bytes -- bytes )
    bs:<lsb0-bit-reader>
    [ check-zlib-header ]
    [ inflate-loop ] bi
    inflate-lz77 ;

        19 23 27 31
        35 43 51 59
        67 83 99 115
        131 163 195 227 258
    }

CONSTANT: dist-table
    {
        1 2 3 4 
        5 7 9 13 
        17 25 33 49
        65 97 129 193
        257 385 513 769
        1025 1537 2049 3073
        4097 6145 8193 12289
        16385 24577
    }

: nth* ( n seq -- elt )
    [ length 1- swap - ] [ nth ] bi ;
