anchor.diff:  
   -spec print_r(Context :: context(), Value :: var_value()) -> true | binary().
   
  +print_r(Context, {_,#reg_instance{}}=Vars) ->
  +    print_r(Context, Vars, {false,false});
  +
   print_r(_Context, {_,Value}) when not ?IS_DICT(Value) -> 
       ephp_util:to_bin(Value);
   
  
positive.code:         Data = lists:foldl(fun(Chunk,Total) ->
              <<Total/binary, Chunk/binary>>
          end, <<>>, Elements),
          Size = ephp_util:to_bin(length(Value)),
          if ?IS_DICT(Value) ->
              <<"array(", Size/binary, ") {\n", Data/binary, "}\n">>;
          true ->
              Data
          end;
  
negative.code: var_dump_fmt(_Context, Value, _Spaces) when is_binary(Value) -> 
      Size = ephp_util:to_bin(byte_size(Value)),
      <<"string(",Size/binary,") \"",(ephp_util:to_bin(Value))/binary, "\"\n">>;
  
  var_dump_fmt(Context, #reg_instance{class=Class, context=Ctx}, Spaces) ->
      lists:foldl(fun(#class_attr{name=Name,access=Acc}, Output) ->
          Access = atom_to_binary(Acc, utf8),
          Value = ephp_context:get(Ctx, #variable{name=Name}), 
          ValDumped = var_dump_fmt(Context, Value, <<Spaces/binary, ?SPACES_VD>>),
          Output ++ [<<
            Spaces/binary, Access/binary, " $", Name/binary, " =>\n",
            Spaces/binary, ValDumped/binary>>]
      end, [], Class#class.attrs);
  
  var_dump_fmt(Context, Value, Spaces) ->
      ?DICT:fold(fun(Key, Val, Res) ->
  