anchor.diff:  	_ -> "alive"
       end.
   
  -indent(I) -> io:format('~*c',[I,$ ]). 
  +indent(D, I) -> io:format(D,'~*c',[I,$ ]). 
   
   children(Pid) ->
       Parent = self(),
  
positive.code: 
  
  
  nyi() ->
      io:format('Not yet implemented~n',[]),
      nyi.
  
negative.code:     end.
  
  %%%================================================================
  underline(D, Str) ->
      underline(D, Str, $-).
  
  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() ->
  