anchor.diff:          false ->                                %Matching
               Tcs = print1_tail([Args|Rest], D-2, I+2, L),
               ["(",Dcs," ",Ncs,Tcs,")"]
  -        end;
  +    end;
   print1_defun(List, D, I, L) ->
       %% Too short to get worked up about, or not a "proper" defun or
       %% not enough depth.
  
positive.code:     print1_tail_max([], D-1, I + flatlength(Cs) + 3, L, [Cs," . "|Acc]).
  
  %% print1_list(List, Depth, Indentation, LineLength)
  %%  Print a list, one element per line. No leading/trailing ().
  
  print1_list([], _, _, _) -> [];
  print1_list(_, 0, _, _) -> "...";
  print1_list([Car|Cdr], D, I, L) ->
      [print1(Car, D, I, L),print1_tail(Cdr, D-1, I, L)].
  
  %% print1_tail(Tail, Depth, Indentation, LineLength)
  %%  Print the tail of a list decreasing the depth for each element. We
  %%  know about dotted pairs.
  
  print1_tail([], _, _, _) -> "";
  print1_tail(_, 0, _, _) -> "...";
  print1_tail([Car|Cdr], D, I, L) ->
      ["\n",blanks(I, []),print1(Car, D, I, L),print1_tail(Cdr, D-1, I, L)];
  print1_tail(S, D, I, L) ->
      [" .\n",blanks(I, print1(S, D, I, L))].
  
  blanks(N, Tail) -> string:chars($\s, N, Tail).
  
  
negative.code:     [print1_map_assoc(KV, D, I, L)|print1_map_rest(KVs, D-1, I, L)].
  
  print1_map_rest([], _, _, _) -> [];
  print1_map_rest(_, 0, _, _) -> " ...";
  print1_map_rest([KV|KVs], D, I, L) ->
      Massoc = print1_map_assoc(KV, D, I, L),
      [$\n,blanks(I, []),Massoc|print1_map_rest(KVs, D-1, I, L)].
  