anchor.diff:      ?assertEqual("hello", lists:flatten(format("~s", [<<"hello">>], 50))),
       ?assertEqual("hello\nworld", lists:flatten(format("~s", [<<"hello\nworld">>], 50))),
       ?assertEqual("<<\"hello\\nworld\">>", lists:flatten(format("~p", [<<"hello\nworld">>], 50))),
  +    ?assertEqual("<<\"\\\"hello world\\\"\">>", lists:flatten(format("~p", [<<"\"hello world\"">>], 50))),
  +    ?assertEqual("<<\"hello\\\\world\">>", lists:flatten(format("~p", [<<"hello\\world">>], 50))),
  +    ?assertEqual("<<\"hello\\\\\world\">>", lists:flatten(format("~p", [<<"hello\\\world">>], 50))),
  +    ?assertEqual("<<\"hello\\\\\\\\world\">>", lists:flatten(format("~p", [<<"hello\\\\world">>], 50))),
  +    ?assertEqual("<<\"hello\\bworld\">>", lists:flatten(format("~p", [<<"hello\bworld">>], 50))),
  +    ?assertEqual("<<\"hello\\tworld\">>", lists:flatten(format("~p", [<<"hello\tworld">>], 50))),
  +    ?assertEqual("<<\"hello\\nworld\">>", lists:flatten(format("~p", [<<"hello\nworld">>], 50))),
  +    ?assertEqual("<<\"hello\\rworld\">>", lists:flatten(format("~p", [<<"hello\rworld">>], 50))),
  +    ?assertEqual("<<\"hello\\eworld\">>", lists:flatten(format("~p", [<<"hello\eworld">>], 50))),
  +    ?assertEqual("<<\"hello\\fworld\">>", lists:flatten(format("~p", [<<"hello\fworld">>], 50))),
       ?assertEqual("     hello", lists:flatten(format("~10s", [<<"hello">>], 50))),
       ok.
   
  
positive.code:             {R, Len} = list_body([H|T], Max-2, Options, false),
              {[$[, R, $]], Len + 2}
      end;
  alist_start([H|T], Max, Options) when H =:= 9; H =:= 10; H =:= 13 ->
      try alist([H|T], Max -1, Options) of
          {L, Len} ->
              {[$"|L], Len + 1}
  
negative.code: dec_depth(Options) ->
      Options.
  
  escape($\t) -> "\\t";
  escape($\n) -> "\\n";
  escape($\r) -> "\\r";
  escape($\e) -> "\\e";
  escape($\f) -> "\\f";
  escape($\b) -> "\\b".
  
  -ifdef(TEST).
  %%--------------------
  