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