     bitstream bytes>> <slice>
     len 8 * bitstream bs:seek ;
 
-: inflate-dynamic ( bitstream -- bytes ) 
+: inflate-dynamic ( bitstream -- bytes )
     dup decode-huffman-tables inflate-huffman ;
 
-: inflate-static ( bitstream -- bytes ) 
+: inflate-static ( bitstream -- bytes )
     static-huffman-tables inflate-huffman ;
 
 :: inflate-loop ( bitstream -- bytes )
-    [ 1 bitstream bs:read 0 = ]
-    [
+    [ 1 bitstream bs:read 0 = ] [
         bitstream
         2 bitstream bs:read
-        { 
+        {
             { 0 [ inflate-raw ] }
             { 1 [ inflate-static ] }
             { 2 [ inflate-dynamic ] }


CONSTANT: dist-table
    {
        1 2 3 4 
        5 7 9 13 
        17 25 33 49
        65 97 129 193
        257 385 513 769

    clen-shuffle swap head
    dup [ drop 3 bitstream bs:read ] map
    get-table
    bitstream swap <huffman-decoder>
    [ 2dup + ] dip swap :> k!
    '[
        _ read1-huff2
