diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -50,3 +50,8 @@
 ## 0.8.0.0 -- 2021-10-31
 
 * Eigth version. Switched back to the CaseBi.Arr.getBFstLSorted' functionality.
+
+## 0.8.1.0 -- 2022-01-13
+
+* Eigth version revised A. Changed the behaviour of the participles "б" / "ж" so that now they by default are appended to the
+previous word, if any. Added for this a new function participleConc.
diff --git a/LICENSE b/LICENSE
--- a/LICENSE
+++ b/LICENSE
@@ -1,4 +1,4 @@
-Copyright (c) 2020-2021 OleksandrZhabenko
+Copyright (c) 2020-2022 OleksandrZhabenko
 
 Permission is hereby granted, free of charge, to any person obtaining
 a copy of this software and associated documentation files (the
diff --git a/Phonetic/Languages/Ukrainian/PrepareText.hs b/Phonetic/Languages/Ukrainian/PrepareText.hs
--- a/Phonetic/Languages/Ukrainian/PrepareText.hs
+++ b/Phonetic/Languages/Ukrainian/PrepareText.hs
@@ -24,6 +24,7 @@
 module Phonetic.Languages.Ukrainian.PrepareText (
   -- * Basic functions
   complexWords
+  , participleConc
   , splitLines
   , splitLinesN
   , auxiliary1
@@ -127,7 +128,7 @@
     else auxiliary4 wwss), ("\1093\1086\1095\1072", if ys == "\1073"
     then auxiliary3 wwss else auxiliary4 wwss)]) xs
 complexWords [xs,ys]
- | ys == "\1073" || ys == "\1073\1060" = [xs ++ ys]
+ | ys `elem` ["\1073","\1073\1060","\1078\1077","\1078"] = [xs ++ ys]
  | xs == "\1076\1072\1088\1084\1072" && ys == "\1097\1086" = [xs ++ ys]
  | otherwise = [xs,ys]
 complexWords xss = xss
@@ -165,8 +166,13 @@
 -- | A generalized variant of the 'prepareText' with the arbitrary maximum number of the words in the lines given as the first argument.
 prepareTextN :: Int -> String -> [String]
 prepareTextN n = filter (any isUkrainianL) . splitLinesN n .
-  map (unwords . concatenated2. auxiliary1 . complexWords . words . filter (\t -> isAlpha t || isSpC t)) .
+  map (unwords . concatenated2. auxiliary1 . participleConc . complexWords . words . filter (\t -> isAlpha t || isSpC t)) .
        filter (not . null) . lines
+
+participleConc :: [String] -> [String]
+participleConc xss@(xs:ys:yss)
+  | ys `elem` ["\1073","\1073\1060","\1078\1077","\1078"] = (xs ++ ys):participleConc yss
+  | otherwise = xs:participleConc (ys:yss)
 
 auxiliary1 :: [String] -> [String]
 auxiliary1 (xs:ys:zs:xss)
diff --git a/phonetic-languages-ukrainian-array.cabal b/phonetic-languages-ukrainian-array.cabal
--- a/phonetic-languages-ukrainian-array.cabal
+++ b/phonetic-languages-ukrainian-array.cabal
@@ -2,7 +2,7 @@
 --  further documentation, see http://haskell.org/cabal/users-guide/
 
 name:                phonetic-languages-ukrainian-array
-version:             0.8.0.0
+version:             0.8.1.0
 synopsis:            Prepares Ukrainian text to be used as a phonetic language text
 description:         Applies needed minimal grammar connections so that the text afterwards can be processed by dobutokO-poetry or phonetic languages approach related programs. Uses arrays instead of vectors. Besides can be used to reverse many of the done concatenations.
 homepage:            https://hackage.haskell.org/package/phonetic-languages-ukrainian-array
@@ -20,7 +20,7 @@
   exposed-modules:     Phonetic.Languages.Ukrainian.PrepareText, Ukrainian.ReverseConcatenations
   -- other-modules:
   other-extensions:    CPP, BangPatterns
-  build-depends:       base >=4.8 && <4.16, mmsyn2-array >=0.3 && <1, mmsyn5 >=0.5 && <1
+  build-depends:       base >=4.8 && <5, mmsyn2-array >=0.3 && <1, mmsyn5 >=0.5 && <1
   -- hs-source-dirs:
   default-language:    Haskell2010
 
@@ -28,7 +28,7 @@
   main-is:             Main.hs
   other-modules:       Ukrainian.ReverseConcatenations
   other-extensions:    CPP, BangPatterns
-  build-depends:       base >=4.8 && <4.16, mmsyn2-array >= 0.3 && <1, mmsyn5 >=0.5 && <1
+  build-depends:       base >=4.8 && <5, mmsyn2-array >= 0.3 && <1, mmsyn5 >=0.5 && <1
   ghc-options:         -threaded -rtsopts
   hs-source-dirs:      ., Ukrainian
   default-language:    Haskell2010