anchor.diff:  	{Helper,L} when is_list(L) ->
   	    L
       after
  -	2000 -> 
  +	2000 ->
   	    catch exit(Helper, kill),
   	    []
       end.
   
  +is_connection_handler(Pid) ->
  +    try
  +	{ssh_connection_handler,init,_} =
  +	    proplists:get_value(
  +	      '$initial_call',
  +	      proplists:get_value(
  +		dictionary,
  +		process_info(Pid, [dictionary])))
  +    of
  +	_ -> true
  +
  +    catch
  +	_:_ ->
  +	    false
  +    end.
  +
  +channels(Pid) ->
  +    case is_connection_handler(Pid) of
  +	true ->
  +	    ssh_connection_handler:info(Pid,all);
  +	false ->
  +	    false
  +    end.
  +
   %%%================================================================
  -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]).
  -	    
  +underline(Str, LineChar) ->
  +    io_lib:format('~s~n~*c~n',[Str, lists:flatlength(Str), LineChar]).
  +
   
   datetime() ->
       {{YYYY,MM,DD}, {H,M,S}} = calendar:now_to_universal_time(erlang:timestamp()),
  
positive.code: %%				Values=/=[] ->
  	    From ! {values,Values}
      end.
  
      
  
  
negative.code: 	_ -> "alive"
      end.
  
  indent(I) -> io_lib:format('~*c',[I,$ ]).
  
  
  children(Pid) ->
      Parent = self(),
  