anchor.diff:  -module(binarytree).
   -export([init/0,
  -		 add/1,
  -		 addNValues/1,
  -		 walk/0,
  -		 addValues/1]).
  +         add/1,
  +         addNValues/1,
  +         walk/0,
  +         addValues/1]).
   -export([server/0,
  -		 server/3,
  -		 retrieve/1]).
  +         server/3,
  +         retrieve/1]).
   
   %% Registers the async'd Pid with the atom 'root'.
   init() ->
  
positive.code:             end,
              Who ! {val, LVals++[Value]++RVals},
              server(Left, Value, Right);
          
          quit ->
              if
                  Left =:= nil ->
  
negative.code:     addValues(N-1).
  
  testforn(N) ->
      init(),
      addNValues(N),
      root ! quit.
  
  main(_) ->
      testforn(1000000).
  