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: 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, Value, Spaces) ->
      ?DICT:fold(fun(Key, Val, Res) ->
  
negative.code:         Data = lists:foldl(fun(Chunk,Total) ->
              <<Total/binary, Chunk/binary>>
          end, <<>>, Elements),
          Size = case Value of
          V when is_list(V) ->
              ephp_util:to_bin(length(Value));
          #reg_instance{class=#class{attrs=Attrs}} ->
              ephp_util:to_bin(length(Attrs))
          end,
          if ?IS_DICT(Value) ->
              <<"array(", Size/binary, ") {\n", Data/binary, "}\n">>;
          is_record(Value, reg_instance) ->
              #reg_instance{class=Class} = Value,
              %% TODO: add instance number (ID)
              <<"class ", (Class#class.name)/binary, " (", Size/binary, ") ",
                "{\n", Data/binary, "}\n">>;
          true ->
              Data
          end;
  