anchor.diff:  	to_lower("Ś"++T, Acc) -> to_lower(T, [155,197|Acc]);
   	to_lower("Ź"++T, Acc) -> to_lower(T, [186,197|Acc]);
   	to_lower("Ż"++T, Acc) -> to_lower(T, [188,197|Acc]);
  +    % Turkish support
  +	to_lower("Ş"++T, Acc) -> to_lower(T, [159,197|Acc]);
  +	to_lower("Ğ"++T, Acc) -> to_lower(T, [159,196|Acc]);
  +	to_lower("İ"++T, Acc) -> to_lower(T, [177,196|Acc]);
   	% Other characters are taken as-is
   	to_lower([H|T], Acc) -> to_lower(T, [H|Acc]).
   
  
positive.code: %% @copyright 2009 Marc Worrell
  %% @date 2009-04-26
  %% @doc String related functions
  
  %% Copyright 2009 Marc Worrell
  %%
  
negative.code: to_name("ź"++T, Acc, I) -> to_name(T, [$z|Acc], I+1);
  to_name("Ż"++T, Acc, I) -> to_name(T, [$z|Acc], I+1);
  to_name("ż"++T, Acc, I) -> to_name(T, [$z|Acc], I+1);
  % Turkish support
  to_name("Ş"++T, Acc, I) -> to_name(T, [$s|Acc], I+1);
  to_name("ş"++T, Acc, I) -> to_name(T, [$s|Acc], I+1);
  to_name("Ğ"++T, Acc, I) -> to_name(T, [$g|Acc], I+1);
  to_name("ğ"++T, Acc, I) -> to_name(T, [$g|Acc], I+1);
  to_name("İ"++T, Acc, I) -> to_name(T, [$i|Acc], I+1);
  to_name("ı"++T, Acc, I) -> to_name(T, [$i|Acc], I+1);
  
  % Other sequences of characters are mapped to $_
  to_name([_C|T], [$_|_] = Acc, I) ->
      to_name(T, Acc, I+1);
  