: maybe-increment-code-size ( lzw -- lzw )
    [
        [ code>> ]
        [ code-size>> 2^ 1 - ]
        bi =
    ] [ swap [ [ 1 + ] change-code-size ] when ]
    bi ;