anchor.diff:  %% ====================================================================================
   %% @spec duplicated_code(FileName::filename(),MinLines::integer(),MinClones::integer()) -> term().
   %%  
  +
  +duplicated_code_1(DirFileList, MinLength1, MinClones1) ->
  +    FileNames = refac_util:expand_files(DirFileList, ".erl"),
  +    MinLength = case MinLength1==[] orelse  (list_to_integer(MinLength1)< ?DEFAULT_MIN_CLONE_LEN) of 
  +		    true -> ?DEFAULT_MIN_CLONE_LEN;
  +		    _ -> list_to_integer(MinLength1)
  +		end,
  +    MinClones = case MinClones1==[] orelse (list_to_integer(MinClones1) <?DEFAULT_MIN_CLONE_MEMBER) of 
  +		     true ->?DEFAULT_MIN_CLONE_MEMBER;
  +		     _ -> list_to_integer(MinClones1)
  +		 end,
  +    {Toks, ProcessedToks} = tokenize(FileNames),
  +    Tree = suffix_tree(alphabet()++"&",ProcessedToks++"&"),  %% '&' does not occur in program source.
  +    Cs=lists:flatten(lists:map(fun(B) -> collect_clones(MinLength,MinClones,B) end, Tree)),
  +    Cs1 = filter_out_sub_clones(Cs),
  +    Cs2 = clones_with_atoms(Cs1, Toks, MinLength, MinClones),
  +    %% io:format("Cs2:\n~p\n", [Cs2]),
  +    Cs3 = filter_out_sub_clones(Cs2),
  +    Cs4 = combine_neighbour_clones(Cs3, MinLength, MinClones),
  +    Cs5 = trim_clones(FileNames, Cs4, MinLength, MinClones),
  +    remove_sub_clones(Cs5).
  + 
   
   duplicated_code(DirFileList, MinLength1, MinClones1) ->
       FileNames = refac_util:expand_files(DirFileList, ".erl"),
  
positive.code: display_clones1_1([]) ->		      
      io:format("\n");
  display_clones1_1([{[{{File, StartLine, StartCol}, {File,EndLine, EndCol}}|Range], _Len, F}|Cs]) ->
      io:format("\nThe code in ~p between lines: ~p-~p has been duplicated ~p time(s) at the following"
                 " location(s):",[File, {StartLine, StartCol-1}, {EndLine, EndCol-1}, F-1]),
      display_clones1_2(Range),
      display_clones1_1(Cs).
  
  display_clones1_2([]) ->
  
negative.code: display_clones_1([]) ->		      
      io:format("\n");
  display_clones_1([{[{{File, StartLine, StartCol}, {File,EndLine, EndCol}}|Range], _Len, F}|Cs]) ->
      case F-1 of 
  	1 ->  io:format("\nThe code between  ~p-~p has been duplicated once at the following"
  			" location:",[{StartLine, StartCol-1}, {EndLine,EndCol-1}]),		     
  	      display_clones_2(Range);
  	2 ->  io:format("\nThe code between  ~p-~p has been duplicated twice at the following"
  			" location(s):",[{StartLine, StartCol-1}, {EndLine,EndCol-1}]),
  	      
  	      display_clones_2(Range);
  	_ ->   io:format("\nThe code between  ~p-~p has been duplicated ~p times  at the following"
  			 " location(s):",[{StartLine, StartCol-1}, {EndLine,EndCol-1}, F-1]),
  	       
  	       display_clones_2(Range)
      end,	       
      display_clones_1(Cs).
  
  display_clones_2([]) ->
  