anchor.diff:  -compile(export_all).
   
   print() ->
  +    print(user).
  +
  +print(D) ->
       try supervisor:which_children(ssh_sup)
       of
   	_ ->
  -	    io:nl(),
  -	    print_general(),
  -	    io:nl(),
  -	    underline("Client part", $=),
  -	    print_clients(),
  -	    io:nl(),
  -	    underline("Server part", $=),
  -	    print_servers(),
  -	    io:nl(),
  +	    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(),
  
positive.code: 
  
  
  nyi() ->
      io:format('Not yet implemented~n',[]),
      nyi.
  
negative.code: 	_ -> "alive"
      end.
  
  indent(D, I) -> io:format(D,'~*c',[I,$ ]). 
  
  children(Pid) ->
      Parent = self(),
  