diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -127,4 +127,8 @@
 
 ## 0.12.1.0 -- 2020-10-10
 
-* Twelfth version revised A. Fixed issue with wrongly defined control parameters in the lineVariants executable. 
+* Twelfth version revised A. Fixed issue with wrongly defined control parameters in the lineVariants executable.
+
+## 0.12.2.0 -- 2020-10-12
+
+* Twelfth version revised B. Improved printing of the output for the processText executable, used for this a new function precChoice.
diff --git a/Languages/UniquenessPeriods/Vector/FuncRepRelated.hs b/Languages/UniquenessPeriods/Vector/FuncRepRelated.hs
--- a/Languages/UniquenessPeriods/Vector/FuncRepRelated.hs
+++ b/Languages/UniquenessPeriods/Vector/FuncRepRelated.hs
@@ -29,3 +29,8 @@
   | xs == "y" = procBothFneg
   | otherwise = procBothInvFneg
 
+-- | Allows to choose precision in the Numeric.showFFloat function being given a choice parameter.
+precChoice :: String -> Maybe Int
+precChoice choice
+  | choice == "y0" = Just 0
+  | otherwise = Just 4
diff --git a/Proportion/Main.hs b/Proportion/Main.hs
--- a/Proportion/Main.hs
+++ b/Proportion/Main.hs
@@ -120,8 +120,8 @@
       (!wordsN,!intervalN)
          | maxE == 1 = (0, 0)
          | otherwise = runEval ((parTuple2 rpar rpar) (length . words $ ts, intervalNRealFrac minE maxE gz data2))
-      (!ratio,!printedLine) = (if maxE == 1 then 0.0 else 2.0 * data2 / (minE + maxE), mconcat [showFFloat (Just 4) minE $ "\t",
-        showFFloat (Just 4) data2 "\t", showFFloat (Just 4) maxE "\t", showFFloat (Just 4) (data2 / minE) "\t",
+      (!ratio,!printedLine) = (if maxE == 1.0 then 0.0 else 2.0 * data2 / (minE + maxE), mconcat [showFFloat (precChoice choice) minE $ "\t",
+        showFFloat (precChoice choice) data2 "\t", showFFloat (precChoice choice) maxE "\t", showFFloat (Just 4) (data2 / minE) "\t",
            showFFloat (Just 4) (maxE / data2) "\t", showFFloat (Just 4) ratio "\t", '\t':show (wordsN::Int),
              '\t':show (intervalN::Int), if printLine == 1 then '\t':ts else ""]) in ((ratio,printedLine),(wordsN,intervalN)))
 {-# INLINABLE getData3 #-}
@@ -140,3 +140,4 @@
            '\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/uniqueness-periods-vector-examples.cabal b/uniqueness-periods-vector-examples.cabal
--- a/uniqueness-periods-vector-examples.cabal
+++ b/uniqueness-periods-vector-examples.cabal
@@ -3,7 +3,7 @@
 -- http://haskell.org/cabal/users-guide/
 
 name:                uniqueness-periods-vector-examples
-version:             0.12.1.0
+version:             0.12.2.0
 synopsis:            Usage examples for the uniqueness-periods-vector series of packages
 description:         Usage examples for the uniqueness-periods-vector series of packages. Several executables are planned to demonstrate the libraries work.
 homepage:            https://hackage.haskell.org/package/uniqueness-periods-vector-examples