anchor.diff:  
   list_bodyc([], _Max, _Options, _Tuple) -> {[], 0};
   list_bodyc(_, Max, _Options, _Tuple) when Max < 5 -> {",...", 4};
  +list_bodyc([B], _Max, _Options, _Tuple) when is_bitstring(B) ->
  +    Size = bit_size(B),
  +    <<Value:Size>> = B,
  +    ValueStr = integer_to_list(Value),
  +    SizeStr = integer_to_list(Size),
  +    {[$, , ValueStr, $:, SizeStr], length(ValueStr) + length(SizeStr) +2};
   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),
  
positive.code:     ?assertEqual("hello\nworld", lists:flatten(format("~s", [<<"hello\nworld">>], 50))),
      ?assertEqual("<<\"hello\\nworld\">>", lists:flatten(format("~p", [<<"hello\nworld">>], 50))),
      ?assertEqual("     hello", lists:flatten(format("~10s", [<<"hello">>], 50))),
      ok.
  
  list_printing_test() ->
  
negative.code: list_body([], _Max, _Options, _Tuple) -> {[], 0};
  list_body(_, Max, _Options, _Tuple) when Max < 4 -> {"...", 3};
  list_body(_, _Max, #print_options{depth=0}, _Tuple) -> {"...", 3};
  list_body([B], _Max, _Options, _Tuple) when is_bitstring(B) ->
      Size = bit_size(B),
      <<Value:Size>> = B,
      ValueStr = integer_to_list(Value),
      SizeStr = integer_to_list(Size),
      {[ValueStr, $:, SizeStr], length(ValueStr) + length(SizeStr) +1};
  list_body([H|T], Max, Options, Tuple) -> 
      {List, Len} = print(H, Max, Options),
      {Final, FLen} = list_bodyc(T, Max - Len, Options, Tuple),
  