anchor.diff:  
   -module(ssh_dbg).
   
  --export([messages/0,
  -	 messages/1,
  -	 messages/2,
  +-export([messages/0, messages/1, messages/2,
  +         ct_messages/0,
  +	 auth/0,     auth/1,     auth/2,
  +         ct_auth/0,
   	 stop/0
   	]).
   
  
positive.code: messages() ->
      messages(fun(String,_D) -> io:format(String) end).
  
  messages(Write) when is_function(Write,2) ->
      messages(Write, fun(X) -> X end).
  
  messages(Write, MangleArg) when is_function(Write,2),
  				is_function(MangleArg,1) ->
      catch dbg:start(),
      setup_tracer(Write, MangleArg),
      dbg:p(new,[c,timestamp]),
      dbg_ssh_messages().
  
  dbg_ssh_messages() ->
      dbg:tp(ssh_message,encode,1, x),
  
negative.code: ts(_) ->
      "-".
  %%%----------------------------------------------------------------
  setup_tracer(Type, Write, MangleArg) ->
      Handler = fun(Arg, D) ->
  		      msg_formater(Type, MangleArg(Arg), D)
  	      end,
      InitialData = #data{writer = Write},
      {ok,_} = dbg:tracer(process, {Handler, InitialData}),
  