anchor.diff:      {_,_,_,O} = lists:keyfind(output, 1, InOut),
       {descr(InOut),
        {request, {struct, [{"json-rpc", "2.0"},
  -			 {"method", binary_to_list(N)},
  +			 {"method", N},
   			 {"id", ""},
   			 {"params", {struct, rpc_params(I, Data, Imports)}}]}},
        {reply, {struct, [{"json-rpc", "2.0"},
  
positive.code:     end.
  
  each_module(F, [{module,_,M,Data}|Rest], Dir) ->
      [{module, binary_to_list(M), F(Data, Dir)} | each_module(F, Rest, Dir)];
  each_module(F, [_|Rest], Dir) ->
      each_module(F, Rest, Dir);
  each_module(_, [], _) ->
      [].
  
  to_json_rpc(Data, Dir) ->
      Imports = imports(Data, Dir),
      Data1 = augment(Data, Imports),
      lists:foldr(
        fun({rpc,_,N,InOut}, Acc) ->
  	      [{binary_to_list(N), mk_rpc_pair(InOut, N, Data1, Imports)} | Acc];
  	 ({notification,_,N,Elems}, Acc) ->
  	      [{binary_to_list(N), notification(N, Elems, Data1, Imports)} | Acc];
  	 (_, Acc) ->
  	      Acc
        end, [], Data1).
  
negative.code:     {notification,
       descr(Elems),
       {struct, [{"json-rpc", "2.0"},
  	       {"method", N},
  	       {"params", {struct, rpc_params(Elems, Data, Imports)}}]}}.
  
  mk_rpc_pair(InOut, N, Data, Imports) ->
  