anchor.diff:  %% XXX badly chosen function name - I mostly associate this name with
   %% functions like lists:append - hsten
   %%--------------------------------------------------------------------
  -join([], Separator) ->
  +join([], _Separator) ->
       [];
  -join([A], Separator) ->
  +join([A], _Separator) ->
       A;
   join([String | Rest], Separator) ->
       String ++ Separator ++ join(Rest, Separator).
  
positive.code: %% Descrip.: determine if Str is a memeber of StrList
  %% Returns : true | false
  %%--------------------------------------------------------------------
  casegrep(String1,[]) ->
      false;
  casegrep(String1,[String2 | Rest]) ->
      case casecompare(String1,String2) of
  	true ->
  	    true;
  	_ ->
  	    casegrep(String1,Rest)
      end.
  
  %%--------------------------------------------------------------------
  
negative.code: %% XXX badly chosen function name - I mostly associate this name with
  %% functions that add a element to a list - hsten
  %%--------------------------------------------------------------------
  concat([], _Separator) ->
      [];
  concat([A | B], Separator) ->
      A ++ Separator ++ concat(B, Separator).
  