diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -169,3 +169,7 @@
 
 * The fourteenth version. Fixed the not very sufficient release candidate that used hashing functionality. If you have not
 upgraded to the hashing functionality during the 2021-10-30--2021-10-31 you do not need to upgrade either.
+
+## 0.14.1.0 -- 2021-11-01
+
+* The fourteenth version revised A. Fixed issues with doubling the input command line arguments to some extent. 
diff --git a/GetInfo/Main.hs b/GetInfo/Main.hs
--- a/GetInfo/Main.hs
+++ b/GetInfo/Main.hs
@@ -30,7 +30,7 @@
 main :: IO ()
 main = do
  args50 <- getArgs
- let !args0000 = filter (/= "+p") . (\xss -> takeWhile (/= "+d") xss `mappend` drop 2 (takeWhile (/= "+d") xss)) $ args50
+ let !args0000 = filter (/= "+p") . (\xss -> takeWhile (/= "+d") xss `mappend` drop 2 (dropWhile (/= "+d") xss)) $ args50
      !pairwisePermutations = any (== "+p") args50
      !fileDu = concat . drop 1 . take 2 . dropWhile (/= "+d") $ args50
      !args000 = filter (\ts -> take 2 ts /= "+x" && take 2 ts /= "+g") args0000
diff --git a/Lines/Main.hs b/Lines/Main.hs
--- a/Lines/Main.hs
+++ b/Lines/Main.hs
@@ -50,7 +50,7 @@
 main :: IO ()
 main = do
  args50 <- getArgs
- let args00 = filter (/= "+p") . (\xss -> takeWhile (/= "+d") xss `mappend` drop 2 (takeWhile (/= "+d") xss)) $ args50
+ let args00 = filter (/= "+p") . (\xss -> takeWhile (/= "+d") xss `mappend` drop 2 (dropWhile (/= "+d") xss)) $ args50
      pairwisePermutations = any (== "+p") args50
      fileDu = concat . drop 1 . take 2 . dropWhile (/= "+d") $ args50
      multiple
diff --git a/Simple/Main.hs b/Simple/Main.hs
--- a/Simple/Main.hs
+++ b/Simple/Main.hs
@@ -34,7 +34,7 @@
 main :: IO ()
 main = do
  args50 <- getArgs
- let args0000 = filter (/= "+p") . (\xss -> takeWhile (/= "+d") xss `mappend` drop 2 (takeWhile (/= "+d") xss)) $ args50
+ let args0000 = filter (/= "+p") . (\xss -> takeWhile (/= "+d") xss `mappend` drop 2 (dropWhile (/= "+d") xss)) $ args50
      pairwisePermutations = any (== "+p") args50
      fileDu = concat . drop 1 . take 2 . dropWhile (/= "+d") $ args50
      args000 = filter (not . null) (takeWhile (\xs -> take 2 xs /= "*t") args0000 `mappend` (drop 1 . dropWhile (\xs -> take 2 xs /= "^t") $ args0000))
diff --git a/phonetic-languages-simplified-examples-array.cabal b/phonetic-languages-simplified-examples-array.cabal
--- a/phonetic-languages-simplified-examples-array.cabal
+++ b/phonetic-languages-simplified-examples-array.cabal
@@ -2,7 +2,7 @@
 -- further documentation, see http://haskell.org/cabal/users-guide/
 
 name:                phonetic-languages-simplified-examples-array
-version:             0.14.0.0
+version:             0.14.1.0
 synopsis:            Helps to create Ukrainian texts with the given phonetic properties.
 description:         Uses more functionality of the arrays and lists. The vector-related functionality is removed and this made the executables and libraries much more lightweight. Deal the Ukrainian as one of the phonetic languages. For the brief introduction in English, please, refer to: https://functional-art.org/2020/papers/Poetry-OleksandrZhabenko.pdf. Since the version 0.3.0.0 the package has the multiple variations mode for @lineVariantsG3@ executable that allows to use modifications in the text, e. g. synonyms, paraphrases etc.
 homepage:            https://hackage.haskell.org/package/phonetic-languages-simplified-examples-array