diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -38,7 +38,7 @@
 and to obtain a list of lists of Strings -- the information about how many and what actually Ukrainian sounds representations are needed to be created if every sound
 representation is unique.
 
-## 0.5.0.0 -- 2020-02-26
+## 0.5.0.1 -- 2020-02-26
 
-* Fifth version. Added a function 'show7s9' and some descriptive statistics functions. For the first command line argument "-s" the program now prints some
-descriptive statistics metrices for the given text.
+* Fifth version revised A. Fixed issue with the duplicated record in the statistics. Improved formatting for the statistics printing by the program.
+
diff --git a/MMSyn7s.hs b/MMSyn7s.hs
--- a/MMSyn7s.hs
+++ b/MMSyn7s.hs
@@ -100,15 +100,14 @@
                   }
       "-v" -> putStrLn "mmsyn7s: version 0.5.0.0"
       "-s" -> let ys = unwords . drop 1 $ texts in
-                do { putStrLn $ "Possibly unique sounds representations density:   " ++ (show . sndsDensity $ ys)
+                do { putStrLn $ "Possibly unique sounds representations density:                      " ++ (show . sndsDensity $ ys)
                    ; putStrLn $ "Number of sounds representation that are enough to cover the text:   " ++ (show . countSnds . show7s6 $ ys)
-                   ; putStrLn $ "Possibly unique sounds representations density:   " ++ (show . sndsDensity $ ys)
-                   ; putStrLn $ "Uniqueness periods:   " ++ (show . uniquenessPeriods $ ys)
-                   ; putStrLn $ "Mean for uniqueness periods list:   " ++ (show . uniqPeriodsMean $ ys)
-                   ; putStrLn $ "Dispersion for uniqueness periods list:   " ++ (show . uniqPeriodsDispersion $ ys)
-                   ; putStrLn $ "Standard quadratic deviation for uniqueness periods list:   " ++ (show . uniqStdQDeviation $ ys)
-                   ; putStrLn $ "The maximum element in the uniqueness periods list:   " ++ (show . uniqMax $ ys)
-                   ; putStrLn $ "The minimum element in the uniqueness periods list:   " ++ (show . uniqMin $ ys)
+                   ; putStrLn $ "Uniqueness periods:                                                  " ++ (show . uniquenessPeriods $ ys)
+                   ; putStrLn $ "Mean for uniqueness periods list:                                    " ++ (show . uniqPeriodsMean $ ys)
+                   ; putStrLn $ "Dispersion for uniqueness periods list:                              " ++ (show . uniqPeriodsDispersion $ ys)
+                   ; putStrLn $ "Standard quadratic deviation for uniqueness periods list:            " ++ (show . uniqStdQDeviation $ ys)
+                   ; putStrLn $ "The maximum element in the uniqueness periods list:                  " ++ (show . uniqMax $ ys)
+                   ; putStrLn $ "The minimum element in the uniqueness periods list:                  " ++ (show . uniqMin $ ys)
                    }
       "1"  -> putStrLn . show . fst . show7s5 . unwords . drop 1 $ texts
       "-1" -> putStrLn . snd . show7s5 . unwords . drop 1 $ texts
diff --git a/mmsyn7s.cabal b/mmsyn7s.cabal
--- a/mmsyn7s.cabal
+++ b/mmsyn7s.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                mmsyn7s
-version:             0.5.0.0
+version:             0.5.0.1
 synopsis:            Shows a sorted list of the Ukrainian sounds representations that can be used by mmsyn7 series of programs
 description:         A program and a library that show a sorted list of the Ukrainian sounds representations that can be used by mmsyn7 series of programs
 homepage:            https://hackage.haskell.org/package/mmsyn7s