anchor.diff:      code(Rest1, copy_level(Pos, Pos1), [Global|Parsed]);
   code(<<"}",Rest/binary>>, {code_block,_,_}=Pos, Parsed) ->
       {Rest, add_pos(Pos,1), lists:reverse(Parsed)};
  +code(<<"}",Rest/binary>>, {switch_block,_,_}=Pos, Parsed) ->
  +    {Rest, add_pos(Pos,1), lists:reverse(switch_case_block(Parsed))};
   code(<<E:8,N:8,D:8,I:8,F:8,Rest/binary>>, {if_old_block,_,_}=Pos, Parsed) when
           ?OR(E,$E,$e) andalso ?OR(N,$N,$n) andalso ?OR(D,$D,$d) andalso
           ?OR(I,$I,$i) andalso ?OR(F,$F,$f) ->
  
positive.code:     expression(Rest0, Pos0, add_op(Var, Parsed));
  expression(<<A:8,_/binary>> = Rest, Pos, Parsed) when ?IS_NUMBER(A) ->
      {Rest0, Pos0, [Number]} = number(Rest, Pos, []),
      expression(Rest0, Pos0, add_op(Number, Parsed));
  expression(<<A:8,_/binary>> = Rest, Pos, Parsed) when A =:= $" orelse A =:= $' ->
      {Rest0, Pos0, String} = string(Rest, Pos, []),
      expression(Rest0, Pos0, add_op(String, Parsed));
  
negative.code: for_block_level({_,Row,Col}) -> {for_block,Row,Col}.
  foreach_block_level({_,Row,Col}) -> {foreach_block,Row,Col}.
  while_block_level({_,Row,Col}) -> {while_block,Row,Col}.
  switch_block_level({_,Row,Col}) -> {switch_block,Row,Col}.
  
  normal_level({_,Row,Col}) -> {code,Row,Col}.
  code_block_level({_,Row,Col}) -> {code_block,Row,Col}.
  