anchor.diff:  								   is_pid(Pid) ->
       PrintChannels =  fun(X) -> print_channels(D,X) end,
       lists:foreach(PrintChannels, supervisor:which_children(Pid));
  -print_system_sup(D, {{ssh_acceptor_sup,LocalHost,LocalPort,Profile}, Pid, supervisor, [ssh_acceptor_sup]}) when is_pid(Pid) ->
  +print_system_sup(D, {{ssh_acceptor_sup,_LocalHost,_LocalPort,_Profile}, Pid, supervisor, [ssh_acceptor_sup]}) when is_pid(Pid) ->
       io__format(D, ?INDENT?INDENT"[Acceptor Pid ~p]~n",[Pid]).
   
   
  
positive.code:     end.
  
  %%%================================================================
  underline(D, Str) ->
      underline(D, Str, $-).
  
  underline(D, Str, LineChar) ->
      Len = lists:flatlength(Str),
      io__format(D, '~s~n',[Str]),
  
negative.code: 
  -module(ssh_info).
  
  -export([print/0,
  	 print/1,
  	 string/0
  	]).
  
  print() ->
      print(user).
  
  print(D) ->
      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),
  	    underline(D, "Supervisors", $=),
  	    walk_sups(D, ssh_sup),
  	    io__nl(D)
      catch
  	_:_ ->
  	    io__format(D,"Ssh not found~n",[])
      end.
  
  string() ->
      Pid = spawn(fun init/0),
  