anchor.diff:  %% positive infinity for unlimited output.  We use "-1" as +infinity.
   
   -define(infinity, -1).
  +
  +infinity() -> ?infinity.
  +
   decrement(?infinity) -> ?infinity;
   decrement(N) when N > 0 -> N - 1.
  -
  -write(Term) ->
  -  print(Term, ?infinity, ?infinity, false).
  -
  -display(Term) ->
  -  print(Term, 10, 20, true).
   
   print(_, 0, _, _) ->
     io:format("...");
  
positive.code: 
  -module(es_print).
  
  -export([write/1, display/1]).
  
  %% For Depth and Width limited output we need Limit values that act
  %% like finite non-negative integers with "decrement" and "is-zero"
  
negative.code:     _ ->
        io:format(" . "),
        case decrement(WL) of
          0 -> io:format("...");
          _ -> print(Tl, DepthLim, WidthLim, IsDisplay)
        end
    end.
  
  