anchor.diff:  wash_po_file(PoToWash, DefaultPo, LC, KeysToBeReplaced) ->
       {OldTrans, OldUntrans} = get_amount_translated_and_untranslated(PoToWash),
       PoWashed0 = update_keys_to_be_replaced(PoToWash, KeysToBeReplaced),
  -    {PoWashed, New, RemovedUntrans, RemovedTrans} = 
  +    {PoWashed, New, RemovedUntrans, RemovedTrans} =
   	add_new_delete_old_keys(PoWashed0, DefaultPo),
       {NewTrans, NewUntrans} = get_amount_translated_and_untranslated(PoWashed),
       case NewUntrans =:= OldUntrans + New - RemovedUntrans andalso
   	NewTrans =:= OldTrans - RemovedTrans of
   	true  -> ok;
  -	false -> 
  +	false ->
   	    error_logger:error_msg("Bad washing of "++LC++". "
   				   "Po file got corrupted"),
   	    exit(error)
       end,
       case PoToWash =:= PoWashed of
  -	false -> 
  +	false ->
   	    error_logger:info_msg("Updating "++LC++"...~n"),
   	    write_po_file(LC, PoWashed, "Polish tool", "polish@polish.org");
   	true  ->
  
positive.code: 	    Duplicated;
  	ok ->
  	    LCPo
      end.    
  
  get_amount_translated_and_untranslated(LC) ->
      F = fun({K, K}, {Trans, Untrans})   -> {Trans, Untrans + 1};
  
negative.code: check_duplicated_keys([LC|LCs], Acc) ->
      [{FirstK, _}|LCPo] = read_po_file(LC),
      case check_duplicated_keys_lc(LCPo, FirstK) of
  	ok ->
  	    io:format("~p does not have duplicated keys~n", [get_lang_dir(LC)]),
  	    check_duplicated_keys(LCs, [{LC, true}|Acc]);
  	duplicated ->
  