anchor.diff:      process_flag(trap_exit, true),
       spawn_link(?MODULE, init, [ExtPrg]).
   
  -stop_suffix_tree_clone_detector() -> (?MODULE) ! stop.
  +stop_suffix_tree_clone_detector() -> catch (?MODULE) ! stop.
   
   
   get_clones_by_suffix_tree(FileNames,MinLength, MinClones) ->
  
positive.code: 			    case lists:keysearch(File1, 1, AnnASTs) of
  				{value, {File1, AnnAST}} ->
  				    {value, {File1, Toks}} = lists:keysearch(File1, 1, ToksLists),
  				    Units = pos_to_syntax_units(AnnAST, Toks, {{L1, C1},{L2, C2}}), 
  				    case Units =/= [] of 
  					true -> 
  					    Fun2 = fun(U) ->
  							   {StartLoc, _} = hd(U),
  							   {_, EndLoc} = lists:last(U),
  							   Toks1 =lists:dropwhile(fun(T) ->token_loc(T)=< S end, Toks),
  							   Toks11 = lists:takewhile(fun(T) ->token_loc(T) =< StartLoc end, Toks1),
  							   Toks2 = lists:dropwhile(fun(T) ->token_loc(T) =< EndLoc end, Toks1),
  
negative.code: 							   Toks31= lists:takewhile(fun(T)-> token_loc(T) =< EndLoc end, Toks3),
  							   NewLen = length(Toks31),
  							   case NewLen >=MinLength of 
  							       true ->  
  								   NewRange = trim_range(tl(Range), {Len1, Len2}),
  								   {StartLn, StartCol} = StartLoc,
  								   {EndLn, EndCol} = EndLoc,
  								   [{[{{File1, StartLn, StartCol}, {File1, EndLn, EndCol}}|NewRange], NewLen, F}];
  							       false -> 
  								   []
  							   end
  						   end,
  					      lists:append(lists:map(Fun2, Units));
  