diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -3,3 +3,7 @@
 ## 0.1.0.0 -- 2020-10-30
 
 * First version. Released on an unsuspecting world.
+
+## 0.1.2.0 -- 2020-12-07
+
+* First version revised B. Fixed issues with being wrongly counted and displayed the number of one-word lines.
diff --git a/Distribution/Main.hs b/Distribution/Main.hs
--- a/Distribution/Main.hs
+++ b/Distribution/Main.hs
@@ -35,7 +35,7 @@
 #endif
 #endif
 import Control.Parallel.Strategies
-import Data.Maybe (fromMaybe)
+import Data.Maybe (fromMaybe,mapMaybe)
 import Text.Read (readMaybe)
 import System.Environment
 import Numeric (showFFloat)
@@ -64,8 +64,9 @@
   if printInput == "1" then B.putStr contents else B.putStr B.empty
   (!data31,!wordsCnt0_data32) <- processContents contents
   let !gz = getIntervalsN gzS data31 -- Obtained from the first command line argument except those ones that are for RTS
-      !data4 = filter (/= 0.0) data31
-  if null data4 then putStrLn (replicate 102 '-') >> putStrLn "1.000+-0.000\tALL!" >> putStrLn (replicate 102 '=') -- Well, this means that all the text consists of the unique (in phonetic meaning) words alongside every line. A rather rare occurrence.
+      !pair2s = zip data31 wordsCnt0_data32
+      !data4 = mapMaybe (\(!x,(!y,_)) -> if y > 1 then Just x else Nothing) pair2s
+  if null data4 then putStrLn (replicate 102 '-') >> putStrLn "1.000+-0.000\tALL!" >> putStrLn (replicate 102 '=') -- Well, this means that all the text consists of the lines with no more than 1 word every one. A rather rare occurrence.
   else do
       let (!mean1,!disp) = meanWithDispD2 data4
           !pairs = sort . filter ((/= 0) . snd) $ wordsCnt0_data32
@@ -100,7 +101,7 @@
      !s = sum ks in
        mconcat [replicate 102 '-', newLineEnding, mconcat . map (\r -> show r ++ "\t") $ [1..gz], newLineEnding, mconcat . map (\r ->  show r ++ "\t") $ ks,
          newLineEnding, mconcat . map (\r -> showFFloat (Just 2) (fromIntegral (r * 100) / fromIntegral s)  "%\t") $ ks,newLineEnding,
-          mconcat [showFFloat (Just 4) mean1 "+-", showFFloat (Just 4) (sqrt disp) "\t", show (length . filter (== 0.0) $ data31),
+          mconcat [showFFloat (Just 4) mean1 "+-", showFFloat (Just 4) (sqrt disp) "\t", show (length . filter ((<= 1) . fst) $ pairs),
            '\t':show (length data31)], newLineEnding, mconcat . map (\r -> show r ++ "\t") $ [2..7], newLineEnding, mconcat .
               map (\r ->  (show . length . takeWhile (== r) . dropWhile (/= r) . map fst $ pairs) ++ "\t") $ [2..7], newLineEnding, replicate 102 '*']
 {-# INLINE generalInfo1 #-}
diff --git a/phonetic-languages-plus.cabal b/phonetic-languages-plus.cabal
--- a/phonetic-languages-plus.cabal
+++ b/phonetic-languages-plus.cabal
@@ -3,7 +3,7 @@
 -- http://haskell.org/cabal/users-guide/
 
 name:                phonetic-languages-plus
-version:             0.1.1.0
+version:             0.1.2.0
 synopsis:            Some common shared between different packages functions.
 description:         Among them are the uniqueness-periods-vector series.
 homepage:            https://hackage.haskell.org/package/phonetic-languages-plus
@@ -29,7 +29,7 @@
   main-is:             Main.hs
   other-modules:       Data.Statistics.RulesIntervals
   other-extensions:    CPP, BangPatterns
-  build-depends:       base >=4.7 && <4.15, bytestring >=0.10 && <0.13, lists-flines >=0.1.1 && <1, uniqueness-periods-vector-stats >=0.2 && <1, parallel >=3.2.0.6 && <4
+  build-depends:       base >=4.7 && <4.15, bytestring >=0.10 && <0.13, lists-flines >=0.1.1 && <1, uniqueness-periods-vector-stats >=0.2.1 && <1, parallel >=3.2.0.6 && <4
   ghc-options:         -threaded -rtsopts
   hs-source-dirs:      ., Distribution
   default-language:    Haskell2010