anchor.diff:  
   underline(D, Str, LineChar) ->
       Len = lists:flatlength(Str),
  -    io:format(D, '~s~n',[Str]),
  +    io__format(D, '~s~n',[Str]),
       line(D,Len,LineChar).
   
   line(D, Len, Char) ->
  -    io:format(D, '~*c~n', [Len,Char]).
  +    io__format(D, '~*c~n', [Len,Char]).
   	    
   
   datetime() ->
  
positive.code:     try supervisor:which_children(ssh_sup)
      of
  	_ ->
  	    io:nl(D),
  	    print_general(D),
  	    io:nl(D),
  	    underline(D, "Client part", $=),
  	    print_clients(D),
  	    io:nl(D),
  	    underline(D, "Server part", $=),
  	    print_servers(D),
  	    io:nl(D),
  	    %% case os:type() of
  	    %% 	{unix,_} ->
  	    %% 	    io:nl(),
  	    %% 	    underline("Linux part", $=),
  	    %% 	    underline("Listening"),
  	    %% 	    catch io:format(os:cmd("netstat -tpln")),
  	    %% 	    io:nl(),
  	    %% 	    underline("Other"),
  	    %% 	    catch io:format(os:cmd("netstat -tpn"));
  	    %% 	_ -> ok
  	    %% end,
  	    underline(D, "Supervisors", $=),
  	    walk_sups(D, ssh_sup),
  	    io:nl(D)
      catch
  	_:_ ->
  	    io:format(D,"Ssh not found~n",[])
      end.
  
  %%%================================================================
  print_general(D) ->
      {_Name, Slogan, Ver} = lists:keyfind(ssh,1,application:which_applications()),
      underline(D, io_lib:format("~s  ~s", [Slogan, Ver]), $=),
      io:format(D, 'This printout is generated ~s. ~n',[datetime()]).
  
  %%%================================================================
  print_clients(D) ->
      PrintClient = fun(X) -> print_client(D,X) end,
      try
  	lists:foreach(PrintClient, supervisor:which_children(sshc_sup))
      catch
  	C:E ->
  	    io:format(D, '***FAILED: ~p:~p~n',[C,E])
      end.
  
  print_client(D, {undefined,Pid,supervisor,[ssh_connection_handler]}) ->
      {{Local,Remote},_Str} = ssh_connection_handler:get_print_info(Pid),
      io:format(D, "    Local=~s  Remote=~s  ConnectionRef=~p~n",[fmt_host_port(Local),fmt_host_port(Remote),Pid]);
  print_client(D, Other) ->
      io:format(D, "    [[Other 1: ~p]]~n",[Other]).
  
  
  %%%================================================================
  
negative.code: 	_ -> "alive"
      end.
  
  indent(D, I) -> io__format(D,'~*c',[I,$ ]). 
  
  children(Pid) ->
      Parent = self(),
  