anchor.diff:  %% [0,65,66] -> [0,65,66]
   %% [65,b,66] -> "A"[b,66]
   %%
  +alist_start([], _Max, #print_options{force_strings=true}) -> {"", 0};
   alist_start([], _Max, _Options) -> {"[]", 2};
   alist_start(_, Max, _Options) when Max < 4 -> {"...", 3};
   alist_start(_, _Max, #print_options{depth=0}) -> {"[...]", 3};
  
positive.code:     {[$|,List], Len + 1}.
  
  list_bodyc([], _Max, _Options, _Tuple) -> {[], 0};
  list_bodyc(_, Max, _Options, _Tuple) when Max < 4 -> {"...", 3};
  list_bodyc([H|T], Max, #print_options{depth=Depth} = Options, Tuple) -> 
      {List, Len} = print(H, Max, dec_depth(Options)),
      {Final, FLen} = list_bodyc(T, Max - Len - 1, Options, Tuple),
  
negative.code:     ok.
  
  binary_printing_test() ->
      ?assertEqual("<<>>", lists:flatten(format("~p", [<<>>], 50))),
      ?assertEqual("<<..>>", lists:flatten(format("~p", [<<"hi">>], 0))),
      ?assertEqual("<<\"hello\">>", lists:flatten(format("~p", [<<$h, $e, $l, $l, $o>>], 50))),
      ?assertEqual("<<\"hello\">>", lists:flatten(format("~p", [<<"hello">>], 50))),
      ?assertEqual("<<104,101,108,108,111>>", lists:flatten(format("~w", [<<"hello">>], 50))),
      ?assertEqual("<<1,2,3,4>>", lists:flatten(format("~p", [<<1, 2, 3, 4>>], 50))),
      ?assertEqual([1,2,3,4], lists:flatten(format("~s", [<<1, 2, 3, 4>>], 50))),
      ?assertEqual("hello", lists:flatten(format("~s", [<<"hello">>], 50))),
  