anchor.diff:  
   -export([messages/0,
   	 messages/1,
  +	 messages/2,
   	 stop/0
   	]).
   
  
positive.code: msg_formater({trace,_Pid,call,{ssh_message,decode,_}}, D) ->
      D;
  msg_formater({trace,Pid,return_from,{ssh_message,decode,1},Msg}, D) -> 
      fmt("~nRECV ~p ~s~n", [Pid,wr_record(shrink_bin(Msg))], D);
  	
  msg_formater({trace,_Pid,call,{ssh_transport,select_algorithm,_}}, D) ->
      D;
  msg_formater({trace,Pid,return_from,{ssh_transport,select_algorithm,3},{ok,Alg}}, D) ->
      fmt("~nALGORITHMS ~p~n~s~n", [Pid, wr_record(Alg)], D);
  
  msg_formater({trace,Pid,send,ErlangMsg,Dest}, D) ->
      fmt("~nERL MSG ~p SEND TO ~p~n ~p~n", [Pid,Dest, shrink_bin(ErlangMsg)], D);
  
  msg_formater({trace,Pid,'receive',ErlangMsg}, D) ->
      fmt("~nERL MSG ~p RECIEVE~n ~p~n", [Pid,shrink_bin(ErlangMsg)], D);
  
  msg_formater(M, D) ->
      fmt("~nDBG ~n~p~n", [shrink_bin(M)], D).
  
negative.code:     D#data{acc = Write(io_lib:format(Fmt, Args), Acc)}.
  
  %%%----------------------------------------------------------------
  setup_tracer(Write, MangleArg) ->
      Handler = fun(Arg, D) ->
  		      msg_formater(MangleArg(Arg), D)
  	      end,
      InitialData = #data{writer = Write},
      {ok,_} = dbg:tracer(process, {Handler, InitialData}),
      ok.
  