anchor.diff:          {join,Ccs,Cl} ->                        %Atomic that fits
               [$\s,Ccs,print1_tail(Cdr, CurL+1+Cl, D-1, I, L)];
           {break,Ccs,Cl} ->                       %Atomic that does not fit
  -            [$\n,blanks(I, Ccs),print1_tail(Cdr, I+Cl, D-1, I, L)];
  +            [newline(I, Ccs),print1_tail(Cdr, I+Cl, D-1, I, L)];
           {break,Ccs} ->                          %Non-atomic
               %% Force a break after not an atomic.
  -            [$\n,blanks(I, Ccs),print1_tail(Cdr, L, D-1, I, L)]
  +            [newline(I, Ccs),print1_tail(Cdr, L, D-1, I, L)]
       end;
   print1_tail(Cdr, CurL, D, I, L) ->
       case print1_element(Cdr, CurL+3, D, I, L) of
  
positive.code:     {break,print1(E, D, I, L)}.
  
  blanks(N, Tail) -> string:chars($\s, N, Tail).
  
  %% indent_type(Form) -> N | none.
  %%  Defines special indentation. None means default, N is number of
  
negative.code: %% Copyright (c) 2008-2014 Robert Virding
  %%
  %% Licensed under the Apache License, Version 2.0 (the "License");
  %% you may not use this file except in compliance with the License.
  