anchor.diff:      end;
   print_length(Tuple, D, RF, Enc, Str) when is_tuple(Tuple) ->
       print_length_tuple(Tuple, D, RF, Enc, Str);
  +print_length(Map, D, RF, Enc, Str) when is_map(Map) ->
  +    print_length_map(Map, D, RF, Enc, Str);
   print_length(<<>>, _D, _RF, _Enc, _Str) ->
       {"<<>>", 4};
   print_length(<<_/bitstring>>, 1, _RF, _Enc, _Str) ->
  
positive.code:     S = io_lib:write(Term),
      {S, lists:flatlength(S)}.
  
  print_length_tuple(_Tuple, 1, _RF, _Enc, _Str) ->
      {"{...}", 5};
  print_length_tuple(Tuple, D, RF, Enc, Str) ->
  
negative.code:     [${, pp_tag_tuple(L, Col, Ll, M, TInd, Ind, LD, W + 1), $}];
  pp({{tuple,false,L}, _Len}, Col, Ll, M, TInd, Ind, LD, W) ->
      [${, pp_list(L, Col + 1, Ll, M, TInd, indent(1, Ind), LD, $,, W + 1), $}];
  pp({{map,Pairs},_Len}, Col, Ll, M, TInd, Ind, LD, W) ->
      [$#,${, pp_list(Pairs, Col + 2, Ll, M, TInd, indent(2, Ind), LD, $,, W + 1), $}];
  pp({{map_pair,K,V},_Len}, Col, Ll, M, TInd, Ind, LD, W) ->
      [pp(K, Col, Ll, M, TInd, Ind, LD, W), " => ", pp(V, Col, Ll, M, TInd, Ind, LD, W)];
  pp({{record,[{Name,NLen} | L]}, _Len}, Col, Ll, M, TInd, Ind, LD, W) ->
      [Name, ${, pp_record(L, NLen, Col, Ll, M, TInd, Ind, LD, W + NLen+1), $}];
  pp({{bin,S}, _Len}, Col, Ll, M, _TInd, Ind, LD, W) ->
  