anchor.diff:  prepare_options([{force_strings, Bool}|T], Options) when is_boolean(Bool) ->
       prepare_options(T, Options#print_options{force_strings = Bool}).
   
  -
  +dec_depth(#print_options{depth=Depth} = Options) when Depth > 0 ->
  +    Options#print_options{depth=Depth-1};
  +dec_depth(Options) ->
  +    Options.
   
   -ifdef(TEST).
   %%--------------------
  
positive.code:         true ->
              alist_start(B, Max-4, Options);
          _ ->
              list_body(B, Max-4, Options)
      end,
      {Res, Length} = case L of
          [91, X, 93] ->
  
negative.code:             {[$"|L], Len + 1}
      catch
          throw:unprintable ->
              {R, Len} = list_body([H|T], Max-2, Options, false),
              {[$[, R, $]], Len + 2}
      end;
  alist_start(L, Max, Options) ->
      {R, Len} = list_body(L, Max-2, Options, false),
      {[$[, R, $]], Len + 2}.
  
  alist([], _Max, #print_options{force_strings=true}) -> {"", 0};
  