anchor.diff:              Vs = if I+Vl < L-10 -> Vcs;
                       true -> term(V, D, I, L)
                    end,
  -            {break,[Ks,newline(I, Vs)]}
  +            {sep_lines,Ks,Vs}
       end.
   
   %% last_length(Chars) -> Length.
  
positive.code: map_rest(KVs, D, I, L) ->
      map_rest(KVs, I, D, I, L-1).
  
  map_rest([], _, _, _, _) -> "";
  map_rest(_, _, 0, _, _) -> " ...";
  map_rest([K,V|KVs], CurL, D, I, L) ->
      case map_assoc(K, V, CurL+1, D, I, L) of
          {both_fit,KVcs,KVl} ->      %Both fit on this line
              [$\s,KVcs,map_rest(KVs, CurL+KVl+1, D-1, I, L)];
          {both_line,KVcs,KVl} ->           %Both fit on single line
              [newline(I, KVcs),map_rest(KVs, I+KVl, D-1, I, L)];
          {break,KVcs} ->       %On separate lines
              %% Force a break after K/V split.
              [newline(I, KVcs),map_rest(KVs, L, D-1, I, L)]
      end;
  map_rest(E, CurL, D, I, L) ->
      map_last(E, CurL, D, I, L).
  
  map_last(Tail, CurL, D, I, L) ->
      list_tail(Tail, CurL, D, I, L).
  
  
negative.code: term([backquote,E], D, I, L) -> ["`",term(E, D, I+1, L)];
  term([comma,E], D, I, L) -> [",",term(E, D, I+1, L)];
  term(['comma-at',E], D, I, L) -> [",@",term(E, D, I+2, L)];
  term([map|MapBody], D, I, L) ->                 %Special case map form
      Mcs = map_body(MapBody, D, I+5, L),
      ["(map ",Mcs,$)];
  term([Car|_]=List, D, I, L) ->
  