anchor.diff:      false ->
         Pname = atom_to_list(Symbol),
         case pname_needs_escape(Pname) of
  -	false ->
  -	  io:format("~p", [Symbol]);
  -	true ->
  -	  escape_pname(Pname)
  +        false ->
  +          io:format("~p", [Symbol]);
  +        true ->
  +          escape_pname(Pname)
         end
     end.
   
  
positive.code:       [];
       true ->
        if I > 0 -> io:format(" ");
  	 true -> []
        end,
        if I >= WidthLim ->
  	  io:format("...");
  	 true ->
  	  print(element(I + 1, Tuple), decrement(DepthLim), WidthLim, IsDisplay),
  	  print_vector(Tuple, I + 1, DepthLim, WidthLim, IsDisplay)
        end
    end.
  
  
negative.code: 
  -module(es_print).
  
  -export([ display/1
          , write/1
          ]).
  
  -type datum() :: term().
  
  %% API -------------------------------------------------------------------------
  
  -spec display(datum()) -> ok.
  display(Term) ->
    print(Term, _Depth = 10, _Width = 20, _IsDisplay = true).
  
  -spec write(datum()) -> ok.
  write(Term) ->
    Infinity = infinity(),
    print(Term, _Depth = Infinity, _Width = Infinity, _IsDisplay = false).
  
  %% Internals -------------------------------------------------------------------
  
  %% For Depth and Width limited output we need Limit values that act
  %% like finite non-negative integers with "decrement" and "is-zero"
  