anchor.diff:      {fun(_, _, _, initial) -> file:write_file("HANDLER_OK", []);
   	(_,_,_,_) -> ok end, initial}.
   
  +counter_call_handler() ->
  +    {fun(_, A={trace_ts, _, call, _, _} ,_,State) -> State + 1;
  +	(A, end_of_trace, _, State) -> io:format(A,"~p.~n", [State]) end, 0}.
  +
  +ret_caller_call_handler() ->
  +    {fun(A, {trace_ts, _, call, _, _, _} ,_,_) -> io:format(A, "ok.~n", []);
  +	(A, {trace_ts, _, return_from, _, _, _}, _, _) -> io:format(A, "ok.~n", []);
  +	(_, _, _, _) -> ok end, []}.
  +
  +node_call_handler() ->
  +    {fun(A, {trace_ts, {_,_,Node}, call, _, _} ,_,_) -> io:format(A, "~p.~n", [Node]);
  +	(_, end_of_trace, _, _) -> ok end, []}.
  +
   otherhandler(_Fd,_,end_of_trace,Relay) ->
       Relay ! end_of_trace,
       Relay;
  
positive.code:      trace_to_remote_files_on_localhost_with_different_pwd,
       trace_to_local_files_on_localhost_with_different_pwd,
       trace_to_remote_files_on_localhost_with_different_pwd_abs,
       one_command_trace_setup, dbg_style_fetch, shell_tracing_init].
  
  groups() -> 
      [].
  
negative.code:     ?line ttb:tp(server, received, []),
      ?line ttb:tp(client, put, []),
      ?line ttb:tp(client, get, []).
  
  begin_trace_local(ServerNode, ClientNode, Dest) ->
      ?line {ok, _} =
  	ttb:tracer([ServerNode,ClientNode],[{file, Dest}]),
      ?line ttb:p(all, call),
      ?line ttb:tpl(server, received, []),
      ?line ttb:tpl(client, put, []),
      ?line ttb:tpl(client, get, []).
  
  check_size(N, Dest, Output, ServerNode, ClientNode) ->
      ?line begin_trace(ServerNode, ClientNode, Dest),
  