anchor.diff:      io_lib:fwrite("\"~s\"", [V]);
   pp_json(V, _I) when is_integer(V) ->
       ["\"", integer_to_list(V), "\""];
  +pp_json({K,V,_}, I) ->
  +    pp_json_(K, V, I);
   pp_json({K,V}, I) ->
  +    pp_json_(K, V, I).
  +
  +
  +pp_json_(K,V,I) ->
       Part1 = ["\"", K, "\": "],
       I1 = I + iolist_size(Part1),
       [Part1, pp_json(V, I1)].
   
  +descr(L) ->
  +    case lists:keyfind(description, 1, L) of
  +	false ->
  +	    "";
  +	{_, _, B,_} ->
  +	    binary_to_list(B)
  +    end.
  +
   i(I) ->
       lists:duplicate(I,$\s).
  
positive.code: 			      %% error({cannot_import, F, no_such_module})
  			      Acc
  		      end;
  		  Error ->
  		      %% error({cannot_import, F, Error})
  		      Acc
  	      end;
  
negative.code: 	[Params] ->
  	    rpc_params(Params, Data, Imports) ++ rpc_params(T, Data, Imports)
      end;
  rpc_params([{leaf,_,N,Is}|T], Data, Imports) ->
      [{binary_to_list(N), "", descr(Is)} | rpc_params(T, Data, Imports)];
  rpc_params([{anyxml,_,N,Is}|T], Data, Imports) ->
      [{binary_to_list(N), "", descr(Is)} | rpc_params(T, Data, Imports)];
  rpc_params([{list,_,N,Items}|T], Data, Is) ->
      [{binary_to_list(N), {array, [{struct, rpc_params(Items, Data, Is)}]}, descr(Items)}
       | rpc_params(T, Data, Is)];
  rpc_params([_|T], Data, Is) ->
      rpc_params(T, Data, Is);
  rpc_params([], _, _) ->
  