anchor.diff:  find_end(Str, Sep) ->
       find_end(Str, Sep, 1, ?PIVOT, []).
   
  -find_end([Sep|T], Sep, N, Pivot, Acc) when N =< Pivot -> {true, [Sep|Acc], T};
  -find_end(_Str, _Sep, N, Pivot, _Acc) when N > Pivot   -> false;
  -find_end([H|T], Sep, N, Pivot, Acc)                   -> find_end(T,Sep,N+1,
  -                                                                  Pivot,[H|Acc]);
  -find_end([], _Sep, _N, _Pivot, Acc)                   -> {true, Acc, []}.
  -    
  +find_end([Sep|T], Sep, N, Pivot, Acc) when N =< Pivot-> {true, [Sep|Acc], T};
  +find_end(_Str, _Sep, N, Pivot, _Acc) when N > Pivot  -> false;
  +find_end([H|T], Sep, N, Pivot, Acc)                  -> find_end(T,Sep,N+1,
  +								 Pivot,[H|Acc]);
  +find_end([], _Sep, _N, _Pivot, Acc)                  -> {true, Acc, []}.
  +
   reverse_tape(Acc, Str) ->
       reverse_tape(Acc, Str, ?SEP).
   
  
positive.code:     F = fun($", Acc)  -> [$\\,$"|Acc];
             ($\\, Acc) -> [$\\,$\\|Acc];
             ($\n, Acc) -> [$\\,$n|Acc];
  	   (C, Acc)   -> [C|Acc] 
  	end,
      lists:foldr(F, [], Str).
  
  %%% Split the string into substrings, 
  %%% aligned around a specific column.
  get_line(Str) ->
      get_line(Str, ?SEP, 1, ?ENDCOL, []).
  
negative.code: %------------------------------------------------------------------------------
  update_po_files(DefaultPo, [LC|T], KeysToBeReplaced) ->
      case read_and_check_po_file(LC) of
  	{duplicated, _D} = Duplicated ->
  	    Duplicated;
  	LCPo ->
  	    wash_po_file(LCPo, DefaultPo, LC, KeysToBeReplaced),
  