diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -21,3 +21,9 @@
 ## 0.1.4.0 -- 2021-09-09
 
 * First version revised D. Updated the needed dependencies.
+
+## 0.2.0.0 -- 2021-10-09
+
+* Second version. Added two new parameterized functions fLinesN and fLinesNIO 
+that can also control the maximum number of words in the line.
+
diff --git a/Phonetic/Languages/Common.hs b/Phonetic/Languages/Common.hs
--- a/Phonetic/Languages/Common.hs
+++ b/Phonetic/Languages/Common.hs
@@ -13,7 +13,9 @@
 --
 
 module Phonetic.Languages.Common (
-  fLines
+  fLinesN
+  , fLines
+  , fLinesNIO
   , fLinesIO
 ) where
 
@@ -21,8 +23,8 @@
 import Data.Char (isAlpha,isSpace)
 import Data.Monoid (mappend)
 
-fLines :: Int -> String -> [String]
-fLines !toOneLine ys = filter (any (\x -> isUkrainianL x && isAlpha x)) . prepareText .
+fLinesN :: Int -> Int -> String -> [String]
+fLinesN n !toOneLine ys = filter (any (\x -> isUkrainianL x && isAlpha x)) . prepareTextN n .
   (\z -> if toOneLine == 1 then unls z else z) $ ys
    -- the 'unls' is taken from the 'Data.List.words' and rewritten to be equal to 'unwords' . 'words'
    where unls s  =  case dropWhile isSpace s of
@@ -30,9 +32,17 @@
                       s' -> w `mappend` (' ' : unls s'')
                         where (w, s'') = break isSpace s'
 
+fLines :: Int -> String -> [String]
+fLines = fLinesN 7
+{-# INLINE fLines #-}
+
+fLinesNIO :: Int -> String -> IO ()
+fLinesNIO n ys = mapM_ putStrLn . map (\(i,x) -> show (i + 1) ++ "\t" ++ x) . helpG3 . indexedL "" .
+   filter (any (\x -> isUkrainianL x && isAlpha x)) . prepareTextN n $ ys
+
 fLinesIO :: String -> IO ()
-fLinesIO ys = mapM_ putStrLn . map (\(i,x) -> show (i + 1) ++ "\t" ++ x) . helpG3 . indexedL "" .
-   filter (any (\x -> isUkrainianL x && isAlpha x)) . prepareText $ ys
+fLinesIO = fLinesNIO 7
+{-# INLINE fLinesIO #-}
 
 -- | Is taken mostly from the Phonetic.Languages.Simplified.Lists.UniquenessPeriodsG module from the @phonetic-languages-simplified-common@ package.
 indexedL :: Foldable t => b -> t b -> [(Int, b)]
diff --git a/phonetic-languages-simplified-examples-common.cabal b/phonetic-languages-simplified-examples-common.cabal
--- a/phonetic-languages-simplified-examples-common.cabal
+++ b/phonetic-languages-simplified-examples-common.cabal
@@ -2,7 +2,7 @@
 -- further documentation, see http://haskell.org/cabal/users-guide/
 
 name:                phonetic-languages-simplified-examples-common
-version:             0.1.4.0
+version:             0.2.0.0
 synopsis:            Some commonly used by phonetic-languages-simplified* series functions.
 description:         Are intended to be used by the phonetic-languages-simplified-lists-examples and phonetic-languages-simplified-examples-array packages.
 homepage:            https://hackage.haskell.org/package/phonetic-languages-simplified-examples-common