anchor.diff:                          _ ->
                               {String, Length}
                       end,
  -                    format(T, AT, Max + 2 - RealLen, ["~s" | Acc], [Value | ArgAcc])
  +                    format(T, AT, Max + 2 - RealLen, ["~s" | Acc], [lists:flatten(Value) | ArgAcc])
               end;
           _ ->
               % whatever, just pass them on through
  
positive.code:     case lists:nth(length(H), H) of
          C when C == $p; C == $w; C == $s ->
              %okay, these are prime candidates for rewriting
              case print(AH, Max + length(H) + 1) of
                  {_Res, Max} ->
                      % this isn't the last argument, but it consumed all available space
                      % delay calculating the print size until the end
                      format(T, AT, Max + length(H) + 1, ["~s" | Acc], [{future, AH} | ArgAcc]);
                  {String, Length} ->
                      {Value, RealLen} = case H of
                          "s" ->
                              % strip off the doublequotes
                              {string:substr(String, 2, length(String) -2), Length -2};
                          _ ->
  
negative.code:     {[$", $[, R, $]], Len + 3}.
  
  
  -ifdef(TEST).
  %%--------------------
  %% The start of a test suite. So far, it only checks for not crashing.
  -spec test() -> ok.
  