anchor.diff:  		%%   {ok, Res};	
   		
   		N -> io:format("~p identical expressions (including the selected expression,and up to variable renaming and literal substitution) "
  -				       " have been fould. \n", [N]),
  +				       " have been found. \n", [N]),
   		     {ok, Res}
   	    end;
   	_   -> {error, "You have not selected an expression!"}
  
positive.code: 	end,
      Es = refac_syntax_lib:fold(F, [], Tree),
      [E ||  E <- Es, length(E) >= MinLen].
  		
  
  
  %% get the list sequence of expressions contained in Tree between locations Start and End.
  
negative.code:     AllExpList = contained_exprs(Tree, length(ExpList)),
     %% ExpList1 = lists:map(fun(T) ->simplify_expr(T) end, ExpList),
      Res =lists:flatmap(fun(EL) ->
  			       get_clone(ExpList, EL) end, AllExpList),
      Res.
      
      
  