anchor.diff:  
   to_json_rpc(Data, Dir) ->
       Imports = imports(Data, Dir),
  -    [{binary_to_list(N), mk_rpc_pair(InOut, N, Data, Imports)} || {rpc,_,N,InOut} <- Data].
  +    lists:foldr(
  +      fun({rpc,_,N,InOut}, Acc) ->
  +	      [{binary_to_list(N), mk_rpc_pair(InOut, N, Data, Imports)} | Acc];
  +	 ({notification,_,N,Elems}, Acc) ->
  +	      [{binary_to_list(N), notification(Elems, Data, Imports)} | Acc];
  +	 (_, Acc) ->
  +	      Acc
  +      end, [], Data).
   
   imports(Data, Dir) ->
       lists:foldl(
  
positive.code:     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).
  
negative.code: markdown([]) ->
      [].
  
  markdown_rpcs([{Not, {notification, Descr, Msg}} | T]) ->
      ["#### Notification: ", Not, "\n",
       "```json\n", pp_json(Msg), "\n```\n\n",
       case Descr of
  	 "" -> "";
  	 _ ->
  	     [Descr, "\n\n"]
       end,
       markdown_descriptions(Msg), "\n\n" | markdown_rpcs(T)];
  markdown_rpcs([{RPC, {Descr, {request, Req}, {reply, Rep}}} | T]) ->
      ["### RPC: ", RPC, "\n\n",
       "#### Request\n", "```json\n", pp_json(Req), "\n```\n\n",
       case Descr of
  	 "" -> "";
  	 _ ->
  	     [Descr, "\n\n"]
       end,
       markdown_descriptions(Req), "\n\n",
       "#### Reply\n", "```json\n", pp_json(Rep), "\n```\n\n",
       markdown_descriptions(Rep), "\n\n" | markdown_rpcs(T)];
  