anchor.diff:  		  {ok, _Res} ->
   		      ?debug("Initial clones are calculated using C suffixtree implementation.\n", []),
   		      stop_suffix_tree_clone_detector(),
  -		      {ok, [Cs]} = file:consult(OutFileName),
  +		      {ok, Res} = file:consult(OutFileName), %% Res: [Cs]
   		      file:delete(OutFileName),
  -		      {Toks, Cs};
  +		      case Res of 
  +			  [] -> {Toks, []}; 
  +			  [Cs] -> {Toks, Cs}
  +		      end;
   		  _ -> 
   		      stop_suffix_tree_clone_detector(),
   		      file:delete(OutFileName),
  
positive.code:     Cs6 = remove_sub_clones(Cs5),
      ?debug("current time:~p\n", [time()]),
      case length(FileNames) of
           1 -> display_clones(Cs6);
           _ -> display_clones1(Cs6)
        end,
      ?debug("No of Clones found:\n~p\n", [length(Cs6)]),
      ?debug("Clones:\n~p\n", [Cs6]),
  
negative.code: token_len_1(V) -> erlang:error(?wrangler_io("Unhandled data type:\n~p\n", [V])).
         
  
  
  
  %% display the found-out clones to the user.
  display_clones1(Cs) ->
      Str = io_lib:format("\nCode detection finished with *** ~p *** clone(s) found.\n", [length(Cs)]),
      display_clones1_1(Cs, Str).
  display_clones1_1([], Str) -> Str ++ "\n";		      
  
  display_clones1_1([{[{{File, StartLine, StartCol}, {File,EndLine, EndCol}}|Range], _Len, F}|Cs], Str) ->
      NewStr =case F-1 of 
  		1 ->   Str1= Str ++ io_lib:format("\nThe code in ~p between lines: {~p,~p}-{~p,~p} has been duplicated once at the following location:\n",
  						  [File, StartLine, StartCol-1, EndLine, EndCol-1]),
  		       display_clones1_2(Range, Str1);
  		2 ->   Str1 =Str ++ io_lib:format("\nThe code in ~p between lines: {~p,~p}-{~p,~p} has been duplicated twice at the following location(s):\n",
  						  [File, StartLine, StartCol-1, EndLine, EndCol-1]),
  		       display_clones1_2(Range, Str1);
  		_ ->   Str1 = Str ++ io_lib:format("\nThe code in ~p between lines: {~p,~p}-{~p,~p} has been duplicated ~p times at the following location(s):\n",
  						   [File, StartLine, StartCol-1, EndLine, EndCol-1, F-1]),
  		       display_clones1_2(Range, Str1)
  	    end,
      display_clones1_1(Cs, NewStr).
  
  display_clones1_2([], Str) -> Str ++ "\n";
  display_clones1_2([{{File, StartLine, StartCol}, {File, EndLine, EndCol}}|Rs], Str) ->
      Str1 =case Rs == [] of 
  	      true ->
  		  Str ++ io_lib:format(" File: ~p,{~p,~p}-{~p,~p}.", [File, StartLine, StartCol-1, EndLine, EndCol-1]);
  	      false ->
  		  Str ++ io_lib:format(" File: ~p, {~p,~p}-{~p,~p},", [File, StartLine, StartCol-1, EndLine, EndCol-1])
  	  end,
      display_clones1_2(Rs, Str1).
  
  %% ===========================================================================
  %% display the found-out clones to the user.
  display_clones(Cs) ->
     Str = io_lib:format("\nCode detection finished with *** ~p *** clone(s) found.\n", [length(Cs)]),
     display_clones_1(Cs, Str).
  display_clones_1([], Str) -> Str ++ "\n";		      
  
  display_clones_1([{[{{File, StartLine, StartCol}, {File,EndLine, EndCol}}|Range], _Len, F}|Cs], Str) ->
      NewStr = case F-1 of 
  		 1 ->  Str1 = Str ++ io_lib:format("\nThe code between  ~p-~p has been duplicated once at the following"
  						   " location:",[{StartLine, StartCol-1}, {EndLine,EndCol-1}]),		     
  		       display_clones_2(Range, Str1);
  		 2 ->  Str1 = Str ++ io_lib: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, Str1);
  		 _ ->   Str1 = Str ++ io_lib: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, Str1)
      end,	       
      display_clones_1(Cs, NewStr).
  
  display_clones_2([], Str) -> Str ++ "\n";
  display_clones_2([{{File, StartLine, StartCol}, {File, EndLine, EndCol}}|Rs], Str) ->
      Str1 = case Rs == [] of 
  	       true ->
  		   Str ++ io_lib:format("  ~p-~p.", [{StartLine,StartCol-1},{EndLine, EndCol-1}]);
  	       _ ->
  		   Str ++ io_lib:format(" ~p-~p,", [{StartLine, StartCol-1}, {EndLine, EndCol-1}])
  	   end,
      display_clones_2(Rs, Str1).
  
  
  %% ===========================================================
  