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

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

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 ;

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