anchor.diff:      try supervisor:which_children(ssh_sup)
       of
   	_ ->
  -	    io:nl(D),
  +	    io__nl(D),
   	    print_general(D),
  -	    io:nl(D),
  +	    io__nl(D),
   	    underline(D, "Client part", $=),
   	    print_clients(D),
  -	    io:nl(D),
  +	    io__nl(D),
   	    underline(D, "Server part", $=),
   	    print_servers(D),
  -	    io:nl(D),
  +	    io__nl(D),
   	    %% case os:type() of
   	    %% 	{unix,_} ->
  -	    %% 	    io:nl(),
  +	    %% 	    io__nl(),
   	    %% 	    underline("Linux part", $=),
   	    %% 	    underline("Listening"),
  -	    %% 	    catch io:format(os:cmd("netstat -tpln")),
  -	    %% 	    io:nl(),
  +	    %% 	    catch io__format(os:cmd("netstat -tpln")),
  +	    %% 	    io__nl(),
   	    %% 	    underline("Other"),
  -	    %% 	    catch io:format(os:cmd("netstat -tpn"));
  +	    %% 	    catch io__format(os:cmd("netstat -tpn"));
   	    %% 	_ -> ok
   	    %% end,
   	    underline(D, "Supervisors", $=),
   	    walk_sups(D, ssh_sup),
  -	    io:nl(D)
  +	    io__nl(D)
       catch
   	_:_ ->
  -	    io:format(D,"Ssh not found~n",[])
  +	    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()]).
  -
  -%%%================================================================
  +    io__format(D, 'This printout is generated ~s. ~n',[datetime()]).
  +
  +%%%================================================================
  +-define(INDENT, "    ").
  +
   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])
  +	    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]);
  +    io__format(D, ?INDENT"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]).
  +    io__format(D, "    [[Other 1: ~p]]~n",[Other]).
   
   
   %%%================================================================
  
positive.code: 
  underline(D, Str, LineChar) ->
      Len = lists:flatlength(Str),
      io:format(D, '~s~n',[Str]),
      line(D,Len,LineChar).
  
  line(D, Len, Char) ->
      io:format(D, '~*c~n', [Len,Char]).
  	    
  
  datetime() ->
  
negative.code: 
  
  nyi(D) ->
      io__format(D,'Not yet implemented~n',[]),
      nyi.
  
  %%%################################################################
  
  io__nl(D) when is_atom(D) -> io:nl(D);
  io__nl(P) when is_pid(P) -> P ! {string,io_lib:nl()}.
  
  io__format(D, Fmt, Args) when is_atom(D) -> io:format(D, Fmt, Args);
  io__format(P, Fmt, Args) when is_pid(P) -> P ! {string,io_lib:format(Fmt, Args)}.
  
  
  init() -> loop([]).
  
  loop(Acc) ->
      receive
  	{string,Str} ->
  	    loop([Str|Acc]);
  	{get,Who} ->
  	    Who ! {result,lists:flatten(lists:reverse(Acc))}
      end.
  	
  