anchor.diff:  to_string(A, _) ->
       io_lib:write_atom(A).
   
  -pp_fun(#{encoding:=Enc,depth:=Depth,chars_limit:=Limit}) ->
  +pp_fun(#{encoding:=Enc,depth:=Depth,chars_limit:=Limit,single_line:=Single}) ->
       {P,Tl} = p(Enc, Depth),
  +    Width = if Single -> "0";
  +               true -> ""
  +            end,
       Opts = if is_integer(Limit) -> [{chars_limit,Limit}];
                 true -> []
              end,
       fun(Term, I) -> 
  -            io_lib:format("~." ++ integer_to_list(I) ++ P, [Term|Tl], Opts)
  -    end.
  -
  -format_tag(Indent, Tag, Data, #{encoding:=Enc,depth:=Depth,chars_limit:=Limit}) ->
  +            io_lib:format("~" ++ Width ++ "." ++ integer_to_list(I) ++ P,
  +                          [Term|Tl], Opts)
  +    end.
  +
  +format_tag(Indent0, Tag, Data, #{encoding:=Enc,depth:=Depth,chars_limit:=Limit,single_line:=Single}) ->
       {P,Tl} = p(Enc, Depth),
  +    {Indent,Width} = if Single -> {"","0"};
  +                        true -> {Indent0,""}
  +                     end,
       Opts = if is_integer(Limit) -> [{chars_limit,Limit}];
                 true -> []
              end,
  -    io_lib:format("~s~p: ~80.18" ++ P ++ "\n", [Indent, Tag, Data|Tl], Opts).
  +    io_lib:format("~s~" ++ Width ++ "p: ~" ++ Width ++ ".18" ++ P,
  +                  [Indent, Tag, Data|Tl], Opts).
   
   p(Encoding, Depth) ->
       {Letter, Tl}  = case Depth of
  
positive.code: format_rep(_, _, _Extra) ->
      [].
  
  format_exception(Class, Reason, StackTrace, #{encoding:=Enc}=Extra) ->
      PF = pp_fun(Extra),
      StackFun = fun(M, _F, _A) -> (M =:= erl_eval) or (M =:= ?MODULE) end,
      %% EI = "    exception: ",
      EI = "    ",
      [EI, erl_error:format_exception(1+length(EI), Class, Reason,
                                      StackTrace, StackFun, PF, Enc), "\n"].
  
  format_mfa(Indent, {M,F,Args}=StartF, #{encoding:=Enc}=Extra) ->
      try
  	A = length(Args),
  	[Indent,"initial call: ",atom_to_list(M),$:,to_string(F, Enc),$/,
  	 integer_to_list(A),"\n"]
      catch
  	error:_ ->
  	    format_tag(Indent, initial_call, StartF, Extra)
  
negative.code: modifier(latin1) -> "";
  modifier(_) -> "t".
  
  nl(true,Else) -> Else;
  nl(false,_) -> "\n".
  
  %%% -----------------------------------------------------------
  %%% Stop a process and wait for it to terminate
  