anchor.diff:  
   -export([print/0,
   	 print/1,
  -	 string/0,
  -	 collect_pids/0
  +	 string/0
   	]).
   
  +-include("ssh.hrl").
   -include("ssh_connect.hrl").
   
   print() ->
  
positive.code: 	    [io_lib:nl(),
  	     print_general(),
  	     io_lib:nl(),
  	     underline("Client part", $=),
               lists:map(fun print_system/1, children(sshc_sup)),
  	     io_lib:nl(),
  	     underline("Server part", $=),
               lists:map(fun print_system/1, children(sshd_sup)),
  	     io_lib:nl(),
  	     underline("Supervisors", $=),
  	     walk_sups(ssh_sup),
  	     io_lib:nl()]
      catch
  	_:_ ->
  
negative.code:     lists:flatten(io_lib:format('~4w-~2..0w-~2..0w ~2..0w:~2..0w:~2..0w UTC',[YYYY,MM,DD, H,M,S])).
  
  
  %%%================================================================
  
  %% ?wr_record(address);
  %% wr_record(R) -> io_lib:format('~p~n',[R]).
  