anchor.diff:      [] ->
         {IStack, [], State2};
       _ ->
  -      LineTokens2 = [{newline, get(line_num)} | LineTokens],
  +      LineTokens2 = [{newline, ?LN} | LineTokens],
         {IStack2, LineTokens3} = process_dents(Dents, IStack, LineTokens2),
         {IStack2, LineTokens3, State2}
     end.
  
positive.code: process_dents(Dents, [NLast | _] = IStack, Toks) when Dents == NLast ->
    {IStack, Toks};
  process_dents(Dents, [NLast | _] = IStack, Toks) when Dents > NLast ->
    {[Dents | IStack], [Toks, {indent, get(line_num)}]};
  process_dents(Dents, IStack, Toks) ->
    {NewStack, DentTokens} = do_dedent(Dents, IStack, []),
    %{NewStack, [Toks, DentTokens]}.
  
negative.code: -module(zss_tokenizer).
  
  -export([tokenize_str/1, tokenize_file/1, tokenize_stream/1]).
  
  -define(FLUSH(Other),
    case CurrTAcc of
      [] -> [Other | AllTAcc];
      _ -> [[Other, {string, ?LN, lists:reverse(CurrTAcc)}] | AllTAcc]
    end).
  -define(SFLUSH,
    case CurrTAcc of
      [] -> AllTAcc;
      _ -> [{string, ?LN, lists:reverse(CurrTAcc)} | AllTAcc]
    end).
  -define(LN, get(line_num)).
  
  -define(T_IGN_INL_1, $|).
  -define(T_IGN_INL_2, $|).
  
  -define(T_IGN_MLT_ST_1, $|).
  -define(T_IGN_MLT_ST_2, $#).
  -define(T_IGN_MLT_EN_1, $#).
  -define(T_IGN_MLT_EN_2, $|).
  
  -define(T_STR_MLT_ST_1, $|).
  -define(T_STR_MLT_ST_2, 34). % dbl-quote
  -define(T_STR_MLT_EN_1, 34).
  -define(T_STR_MLT_EN_2, $|).
  
  -define(T_ESC, $\\).
  
  tokenize_str(InStr) ->
    erase(),
  