diff --git a/CHANGELOG.md b/CHANGELOG.md
new file mode 100644
--- /dev/null
+++ b/CHANGELOG.md
@@ -0,0 +1,7 @@
+# Revision history for phonetic-languages-simplified-properties-array-old
+
+## 0.1.0.0 -- 2022-05-31
+
+* First version. Released on an unsuspecting world. Is taken from the phonetic-languages-siplified-properties-array 
+to provide the old functionality (for compatibility). If possible, use the phonetic-languages-simplified-properties-array instead.
+
diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,20 @@
+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
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be included
+in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
diff --git a/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG21Old.hs b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG21Old.hs
new file mode 100644
--- /dev/null
+++ b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG21Old.hs
@@ -0,0 +1,60 @@
+{-# OPTIONS_HADDOCK show-extensions #-}
+
+-- |
+-- Module      :  Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG21Old
+-- Copyright   :  (c) OleksandrZhabenko 2020-2022
+-- License     :  MIT
+-- Stability   :  Experimental
+-- Maintainer  :  olexandr543@yahoo.com
+--
+-- Generalization of the functionality of the DobutokO.Poetry.Norms
+-- and DobutokO.Poetry.Norms.Extended modules
+-- from the @dobutokO-poetry@ package. Instead of vectors, uses arrays.
+
+module Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG21Old (
+  -- ** Usual ones
+  procBothF
+  , procBothFF
+  , procBothInvF
+  , procBothInvFF
+) where
+
+import Phonetic.Languages.Array.Ukrainian.Common
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld
+import Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2CommonOld
+import Phonetic.Languages.Basis
+import qualified Languages.Phonetic.Ukrainian.Syllable.Double.ArrInt8 as SD
+import Melodics.Ukrainian.ArrInt8
+import GHC.Arr (Array)
+import GHC.Int (Int8)
+
+procBothF
+  :: (Ord c) => (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBothF g coeffs  = procB2F g SD.syllableDurationsD coeffs
+{-# INLINE procBothF #-}
+
+procBothFF
+  :: (Ord c) => Double
+  -> (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBothFF k g coeffs  = procB2FF k g SD.syllableDurationsD coeffs
+{-# INLINE procBothFF #-}
+
+procBothInvF
+  :: (Ord c) => (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBothInvF g coeffs  = procB2InvF g SD.syllableDurationsD coeffs
+{-# INLINE procBothInvF #-}
+
+procBothInvFF
+  :: (Ord c) => Double
+  -> (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBothInvFF k g coeffs  = procB2InvFF k g SD.syllableDurationsD coeffs
+{-# INLINE procBothInvFF #-}
+
diff --git a/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG22Old.hs b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG22Old.hs
new file mode 100644
--- /dev/null
+++ b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG22Old.hs
@@ -0,0 +1,61 @@
+{-# OPTIONS_HADDOCK show-extensions #-}
+
+-- |
+-- Module      :  Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG22Old
+-- Copyright   :  (c) OleksandrZhabenko 2020-2021
+-- License     :  MIT
+-- Stability   :  Experimental
+-- Maintainer  :  olexandr543@yahoo.com
+--
+-- Generalization of the functionality of the DobutokO.Poetry.Norms
+-- and DobutokO.Poetry.Norms.Extended modules
+-- from the @dobutokO-poetry@ package. Instead of vectors, uses arrays.
+
+module Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG22Old (
+  -- * Functions with 'Double'
+  -- ** Working with generated by r-glpk-phonetic-languages-ukrainian-durations syllable durations
+  procBoth2F
+  , procBoth2FF
+  , procBoth2InvF
+  , procBoth2InvFF
+) where
+
+import Phonetic.Languages.Array.Ukrainian.Common
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld
+import Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2CommonOld
+import Phonetic.Languages.Basis
+import qualified Languages.Phonetic.Ukrainian.Syllable.Double.ArrInt8 as SD
+import Melodics.Ukrainian.ArrInt8
+import GHC.Arr (Array)
+import GHC.Int (Int8)
+
+procBoth2F
+  :: (Ord c) => (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBoth2F g coeffs  = procB2F g SD.syllableDurationsD2 coeffs
+{-# INLINE procBoth2F #-}
+
+procBoth2InvF
+  :: (Ord c) => (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBoth2InvF g coeffs  = procB2InvF g SD.syllableDurationsD2 coeffs
+{-# INLINE procBoth2InvF #-}
+
+procBoth2FF
+  :: (Ord c) => Double
+  -> (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBoth2FF k g coeffs  = procB2FF k g SD.syllableDurationsD2 coeffs
+{-# INLINE procBoth2FF #-}
+
+procBoth2InvFF
+  :: (Ord c) => Double
+  -> (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBoth2InvFF k g coeffs  = procB2InvFF k g SD.syllableDurationsD2 coeffs
+{-# INLINE procBoth2InvFF #-}
+
diff --git a/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG23Old.hs b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG23Old.hs
new file mode 100644
--- /dev/null
+++ b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG23Old.hs
@@ -0,0 +1,61 @@
+{-# OPTIONS_HADDOCK show-extensions #-}
+
+-- |
+-- Module      :  Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG23Old
+-- Copyright   :  (c) OleksandrZhabenko 2020-2022
+-- License     :  MIT
+-- Stability   :  Experimental
+-- Maintainer  :  olexandr543@yahoo.com
+--
+-- Generalization of the functionality of the DobutokO.Poetry.Norms
+-- and DobutokO.Poetry.Norms.Extended modules
+-- from the @dobutokO-poetry@ package. Instead of vectors, uses arrays.
+
+module Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG23Old (
+  -- * Functions with 'Double'
+  -- ** NEW Working with generated by r-glpk-phonetic-languages-ukrainian-durations syllable durations
+  procBoth3F
+  , procBoth3FF
+  , procBoth3InvF
+  , procBoth3InvFF
+) where
+
+import Phonetic.Languages.Array.Ukrainian.Common
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld
+import Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2CommonOld
+import Phonetic.Languages.Basis
+import qualified Languages.Phonetic.Ukrainian.Syllable.Double.ArrInt8 as SD
+import Melodics.Ukrainian.ArrInt8
+import GHC.Arr (Array)
+import GHC.Int (Int8)
+
+procBoth3F
+  :: (Ord c) => (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBoth3F g coeffs  = procB2F g SD.syllableDurationsD3 coeffs
+{-# INLINE procBoth3F #-}
+
+procBoth3InvF
+  :: (Ord c) => (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBoth3InvF g coeffs  = procB2InvF g SD.syllableDurationsD3 coeffs
+{-# INLINE procBoth3InvF #-}
+
+procBoth3FF
+  :: (Ord c) => Double
+  -> (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBoth3FF k g coeffs  = procB2FF k g SD.syllableDurationsD3 coeffs
+{-# INLINE procBoth3FF #-}
+
+procBoth3InvFF
+  :: (Ord c) => Double
+  -> (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBoth3InvFF k g coeffs  = procB2InvFF k g SD.syllableDurationsD3 coeffs
+{-# INLINE procBoth3InvFF #-}
+
diff --git a/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG24Old.hs b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG24Old.hs
new file mode 100644
--- /dev/null
+++ b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG24Old.hs
@@ -0,0 +1,61 @@
+{-# OPTIONS_HADDOCK show-extensions #-}
+
+-- |
+-- Module      :  Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG24Old
+-- Copyright   :  (c) OleksandrZhabenko 2020-2022
+-- License     :  MIT
+-- Stability   :  Experimental
+-- Maintainer  :  olexandr543@yahoo.com
+--
+-- Generalization of the functionality of the DobutokO.Poetry.Norms
+-- and DobutokO.Poetry.Norms.Extended modules
+-- from the @dobutokO-poetry@ package. Instead of vectors, uses arrays.
+
+module Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG24Old (
+  -- * Functions with 'Double'
+  -- ** NEW Working with generated by r-glpk-phonetic-languages-ukrainian-durations syllable durations
+  procBoth4F
+  , procBoth4FF
+  , procBoth4InvF
+  , procBoth4InvFF
+) where
+
+import Phonetic.Languages.Array.Ukrainian.Common
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld
+import Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2CommonOld
+import Phonetic.Languages.Basis
+import qualified Languages.Phonetic.Ukrainian.Syllable.Double.ArrInt8 as SD
+import Melodics.Ukrainian.ArrInt8
+import GHC.Arr (Array)
+import GHC.Int (Int8)
+
+procBoth4F
+  :: (Ord c) => (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBoth4F g coeffs  = procB2F g SD.syllableDurationsD4 coeffs
+{-# INLINE procBoth4F #-}
+
+procBoth4InvF
+  :: (Ord c) => (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBoth4InvF g coeffs  = procB2InvF g SD.syllableDurationsD4 coeffs
+{-# INLINE procBoth4InvF #-}
+
+procBoth4FF
+  :: (Ord c) => Double
+  -> (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBoth4FF k g coeffs  = procB2FF k g SD.syllableDurationsD4 coeffs
+{-# INLINE procBoth4FF #-}
+
+procBoth4InvFF
+  :: (Ord c) => Double
+  -> (Double -> c)
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procBoth4InvFF k g coeffs  = procB2InvFF k g SD.syllableDurationsD4 coeffs
+{-# INLINE procBoth4InvFF #-}
+
diff --git a/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG2CommonOld.hs b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG2CommonOld.hs
new file mode 100644
--- /dev/null
+++ b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG2CommonOld.hs
@@ -0,0 +1,100 @@
+{-# OPTIONS_HADDOCK show-extensions #-}
+
+-- |
+-- Module      :  Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2CommonOld
+-- Copyright   :  (c) OleksandrZhabenko 2020-2022
+-- License     :  MIT
+-- Stability   :  Experimental
+-- Maintainer  :  olexandr543@yahoo.com
+--
+-- Generalization of the functionality of the DobutokO.Poetry.Norms
+-- and DobutokO.Poetry.Norms.Extended modules
+-- from the @dobutokO-poetry@ package. Instead of vectors, uses arrays.
+
+{-# LANGUAGE CPP, BangPatterns #-}
+
+module Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2CommonOld where
+
+#ifdef __GLASGOW_HASKELL__
+#if __GLASGOW_HASKELL__>=710
+/* code that applies only to GHC 7.10.* and higher versions */
+import GHC.Base (mconcat)
+#endif
+#endif
+
+import Phonetic.Languages.Array.Ukrainian.Common
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld
+import Phonetic.Languages.UniquenessPeriodsG
+import Languages.Rhythmicity
+import Languages.Rhythmicity.Factor
+import Phonetic.Languages.Basis
+import GHC.Float (int2Double)
+import qualified Languages.Phonetic.Ukrainian.Syllable.ArrInt8 as S
+import Melodics.Ukrainian.ArrInt8
+import Data.Maybe (fromMaybe)
+import GHC.Arr (Array)
+import GHC.Int (Int8)
+
+#ifdef __GLASGOW_HASKELL__
+#if __GLASGOW_HASKELL__==708
+/* code that applies only to GHC 7.8.* */
+mconcat = concat
+#endif
+#endif
+
+procB2FG
+  :: (Ord c) => ([Double] -> Double)
+  -> (Double -> c)
+  -> ([[[Sound8]]] -> [[Double]])
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procB2FG h1 h g coeffs = D (\xs -> let ys = convertToProperUkrainianI8 . map (\x -> if x == '-' then ' ' else x) $ xs in  ((int2Double . fromEnum . diverse2GLInt8 [-1,0] $ ys)*(h1 . mconcat . g . map (S.divVwls . S.reSyllableCntnts . S.groupSnds) . words1 $ ys))) h
+{-# INLINE procB2FG #-}
+
+procB2InvFG
+  :: (Ord c) => ([Double] -> Double)
+  -> (Double -> c)
+  -> ([[[Sound8]]] -> [[Double]])
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procB2InvFG h1 h g coeffs = D (\xs ->
+  let !ys = convertToProperUkrainianI8 . map (\x -> if x == '-' then ' ' else x) $ xs
+      !z = diverse2GLInt8 [-1,0] ys in if z == 0 then  (h1 . mconcat . g . map (S.divVwls . S.reSyllableCntnts . S.groupSnds) .
+          words1 $ ys) ** 2.0
+        else  ((h1 . mconcat . g . map (S.divVwls . S.reSyllableCntnts . S.groupSnds) . words1 $ ys) / (int2Double . fromEnum $ z))) h
+{-# INLINE procB2InvFG #-}
+
+procB2F
+  :: (Ord c) => (Double -> c)
+  -> ([[[Sound8]]] -> [[Double]])
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procB2F h g coeffs = procB2FG (eval23Coeffs coeffs) h g coeffs
+{-# INLINE procB2F #-}
+
+procB2FF
+  :: (Ord c) => Double
+  -> (Double -> c)
+  -> ([[[Sound8]]] -> [[Double]])
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procB2FF k h g coeffs = procB2FG (eval23CoeffsF k coeffs) h g coeffs
+{-# INLINE procB2FF #-}
+
+procB2InvF
+  :: (Ord c) => (Double -> c)
+  -> ([[[Sound8]]] -> [[Double]])
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procB2InvF h g coeffs = procB2InvFG (eval23Coeffs coeffs) h g coeffs
+{-# INLINE procB2InvF #-}
+
+procB2InvFF
+  :: (Ord c) => Double
+  -> (Double -> c)
+  -> ([[[Sound8]]] -> [[Double]])
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procB2InvFF k h g coeffs = procB2InvFG (eval23CoeffsF k coeffs) h g coeffs
+{-# INLINE procB2InvFF #-}
+
diff --git a/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG2DiverseOld.hs b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG2DiverseOld.hs
new file mode 100644
--- /dev/null
+++ b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG2DiverseOld.hs
@@ -0,0 +1,39 @@
+{-# OPTIONS_HADDOCK show-extensions #-}
+
+-- |
+-- Module      :  Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2DiverseOld
+-- Copyright   :  (c) OleksandrZhabenko 2020-2022
+-- License     :  MIT
+-- Stability   :  Experimental
+-- Maintainer  :  olexandr543@yahoo.com
+--
+-- Generalization of the functionality of the DobutokO.Poetry.Norms
+-- and DobutokO.Poetry.Norms.Extended modules
+-- from the @dobutokO-poetry@ package. Instead of vectors, uses arrays.
+
+module Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2DiverseOld (
+  -- * Functions with 'Int16'
+  procDiverse2I
+  -- ** Usual ones
+  , procDiverse2F
+) where
+
+import GHC.Int
+import GHC.Arr (Array)
+import Phonetic.Languages.UniquenessPeriodsG
+import Phonetic.Languages.Basis
+import GHC.Float (int2Double)
+import Melodics.Ukrainian.ArrInt8
+
+procDiverse2I
+  :: (Ord c) => (Int16 -> c)
+  -> FuncRep2 String Int16 c
+procDiverse2I g = D (diverse2GLInt8 [-1,0] . convertToProperUkrainianI8) g
+{-# INLINE procDiverse2I #-}
+
+procDiverse2F
+  :: (Ord c) => (Double -> c)
+  -> FuncRep2 String Double c
+procDiverse2F g = D (int2Double . fromEnum . diverse2GLInt8 [-1,0] . convertToProperUkrainianI8) g
+{-# INLINE procDiverse2F #-}
+
diff --git a/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG2Old.hs b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG2Old.hs
new file mode 100644
--- /dev/null
+++ b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG2Old.hs
@@ -0,0 +1,56 @@
+{-# OPTIONS_HADDOCK show-extensions #-}
+
+-- |
+-- Module      :  Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2Old
+-- Copyright   :  (c) OleksandrZhabenko 2020-2022
+-- License     :  MIT
+-- Stability   :  Experimental
+-- Maintainer  :  olexandr543@yahoo.com
+--
+-- Generalization of the functionality of the DobutokO.Poetry.Norms
+-- and DobutokO.Poetry.Norms.Extended modules
+-- from the @dobutokO-poetry@ package. Instead of vectors, uses arrays.
+
+{-# LANGUAGE CPP, BangPatterns #-}
+
+module Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2Old (
+  -- * Basic functions
+  -- ** Functions with 'Int16'
+  procDiverse2I
+  -- ** Functions with 'Double'
+  -- *** More general
+  , procB2FG
+  , procB2InvFG
+  -- *** Usual ones
+  , procDiverse2F
+  , procBothF
+  , procBothFF
+  , procBothInvF
+  , procBothInvFF
+  -- *** Working with generated by r-glpk-phonetic-languages-ukrainian-durations syllable durations
+  , procBoth2F
+  , procBoth2FF
+  , procBoth2InvF
+  , procBoth2InvFF
+  -- *** NEW Working with generated by r-glpk-phonetic-languages-ukrainian-durations syllable durations
+  , procBoth3F
+  , procBoth3FF
+  , procBoth3InvF
+  , procBoth3InvFF
+  , procBoth4F
+  , procBoth4FF
+  , procBoth4InvF
+  , procBoth4InvFF
+  -- ** Working with rhythmicity
+  , procRhythmicity23F
+  -- *** Working with rhythmicity that can be defined by the user (using 'rhythmicityH')
+  , procRhythmicity23FH
+) where
+
+import Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2CommonOld
+import Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2DiverseOld
+import Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2RhythmicityOld
+import Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG21Old
+import Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG22Old
+import Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG23Old
+import Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG24Old
diff --git a/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG2RhythmicityOld.hs b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG2RhythmicityOld.hs
new file mode 100644
--- /dev/null
+++ b/Phonetic/Languages/Array/Ukrainian/PropertiesFuncRepG2RhythmicityOld.hs
@@ -0,0 +1,49 @@
+{-# OPTIONS_HADDOCK show-extensions #-}
+
+-- |
+-- Module      :  Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2RhythmicityOld
+-- Copyright   :  (c) OleksandrZhabenko 2020-2022
+-- License     :  MIT
+-- Stability   :  Experimental
+-- Maintainer  :  olexandr543@yahoo.com
+--
+-- Generalization of the functionality of the DobutokO.Poetry.Norms
+-- and DobutokO.Poetry.Norms.Extended modules
+-- from the @dobutokO-poetry@ package. Instead of vectors, uses arrays.
+
+module Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2RhythmicityOld (
+  -- * Basic
+  -- ** Working with rhythmicity
+  procRhythmicity23F
+  -- *** Working with rhythmicity that can be defined by the user (using 'rhythmicityH')
+  , procRhythmicity23FH
+) where
+
+import Phonetic.Languages.Array.Ukrainian.Common
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2HOld
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2HprimeOld
+import Phonetic.Languages.Basis
+import Melodics.Ukrainian.ArrInt8
+import GHC.Arr (Array)
+import GHC.Int (Int8)
+
+procRhythmicity23F
+  :: (Ord c) => Double
+  -> (Double -> c)
+  -> String
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procRhythmicity23F k g choice coeffs = procRhythm23F g choice (rhythmicity k) coeffs
+{-# INLINE procRhythmicity23F #-}
+
+procRhythmicity23FH
+  :: (Ord c) => Double
+  -> (Double -> c)
+  -> [[[[Sound8]]] -> [[Double]]]
+  -> String
+  -> Coeffs2
+  -> FuncRep2 String Double c
+procRhythmicity23FH k g syllableDurationsDs choice coeffs = D (rhythmicityH k choice syllableDurationsDs coeffs) g
+{-# INLINE procRhythmicity23FH #-}
+
diff --git a/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG201Old.hs b/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG201Old.hs
new file mode 100644
--- /dev/null
+++ b/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG201Old.hs
@@ -0,0 +1,171 @@
+{-# OPTIONS_HADDOCK show-extensions #-}
+
+-- |
+-- Module      :  Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG201Old
+-- Copyright   :  (c) OleksandrZhabenko 2020-2022
+-- License     :  MIT
+-- Stability   :  Experimental
+-- Maintainer  :  olexandr543@yahoo.com
+--
+-- Generalization and extension of the functionality of the DobutokO.Poetry.Norms
+-- and DobutokO.Poetry.Norms.Extended modules
+-- from the @dobutokO-poetry@ package. Uses syllables information.
+-- Instead of the vector-related, uses just arrays.
+
+{-# LANGUAGE CPP, BangPatterns, MultiWayIf #-}
+
+module Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG201Old (
+  -- * Rhythmicity properties
+  -- ** Rhythmicity properties (semi-empirical)
+  -- *** General ones
+  rhythmicity0H
+  , rhythmicity0FH
+  , rhythmicityKH
+  , rhythmicityKFH
+  -- *** Simple one
+  , rhythmicity0
+  , rhythmicity0F
+  -- *** With weight coefficients
+  , rhythmicityK
+  , rhythmicityKF
+  -- ** Rhythmicity properties from generated with r-glpk-phonetic-languages-ukrainian-durations package (since 0.2.0.0 version)
+  -- *** Simple one
+  , rhythmicity02
+  , rhythmicity02F
+  -- *** With weight coefficients
+  , rhythmicityK2
+  , rhythmicityKF2
+  -- ** NEW Rhythmicity properties from generated with r-glpk-phonetic-languages-ukrainian-durations package
+  -- *** Simple ones
+  , rhythmicity03
+  , rhythmicity03F
+  , rhythmicity04
+  , rhythmicity04F
+  -- *** With weight coefficients
+  , rhythmicityK3
+  , rhythmicityKF3
+  , rhythmicityK4
+  , rhythmicityKF4
+  -- ** General
+  , rhythmicityG
+) where
+
+#ifdef __GLASGOW_HASKELL__
+#if __GLASGOW_HASKELL__>=710
+/* code that applies only to GHC 7.10.* and higher versions */
+import GHC.Base (mconcat)
+#endif
+#endif
+
+import Phonetic.Languages.Array.Ukrainian.Common
+import Languages.Phonetic.Ukrainian.Syllable.Double.ArrInt8
+import Melodics.Ukrainian.ArrInt8 (Sound8,FlowSound)
+import Languages.Phonetic.Ukrainian.Syllable.ArrInt8
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld
+import GHC.Arr (Array)
+import GHC.Int (Int8)
+
+#ifdef __GLASGOW_HASKELL__
+#if __GLASGOW_HASKELL__==708
+/* code that applies only to GHC 7.8.* */
+mconcat = concat
+#endif
+#endif
+
+rhythmicity0H :: ([[[Sound8]]] -> [[Double]]) -> String -> Double
+rhythmicity0H f = rhythmicityGH f eval23
+{-# INLINE rhythmicity0H #-}
+
+rhythmicity0 :: String -> Double
+rhythmicity0 = rhythmicity0H syllableDurationsD
+{-# INLINE rhythmicity0 #-}
+
+rhythmicity02 :: String -> Double
+rhythmicity02 = rhythmicity0H syllableDurationsD2
+{-# INLINE rhythmicity02 #-}
+
+rhythmicity03 :: String -> Double
+rhythmicity03 = rhythmicity0H syllableDurationsD3
+{-# INLINE rhythmicity03 #-}
+
+rhythmicity04 :: String -> Double
+rhythmicity04 = rhythmicity0H syllableDurationsD4
+{-# INLINE rhythmicity04 #-}
+
+-------------------------------------------------------
+
+rhythmicityKH :: ([[[Sound8]]] -> [[Double]]) -> Double -> Double -> String -> Double
+rhythmicityKH f k2 k3 = rhythmicityGH f (eval23K k2 k3)
+{-# INLINE rhythmicityKH #-}
+
+rhythmicityK :: Double -> Double -> String -> Double
+rhythmicityK k2 k3 = rhythmicityKH syllableDurationsD k2 k3
+{-# INLINE rhythmicityK #-}
+
+rhythmicityK2 :: Double -> Double -> String -> Double
+rhythmicityK2 k2 k3 = rhythmicityKH syllableDurationsD2 k2 k3
+{-# INLINE rhythmicityK2 #-}
+
+rhythmicityK3 :: Double -> Double -> String -> Double
+rhythmicityK3 k2 k3 = rhythmicityKH syllableDurationsD3 k2 k3
+{-# INLINE rhythmicityK3 #-}
+
+rhythmicityK4 :: Double -> Double -> String -> Double
+rhythmicityK4 k2 k3 = rhythmicityKH syllableDurationsD4 k2 k3
+{-# INLINE rhythmicityK4 #-}
+
+--------------------------------------------------------
+
+rhythmicity0FH :: ([[[Sound8]]] -> [[Double]]) -> Double -> String -> Double
+rhythmicity0FH f k = rhythmicityGH f (eval23F k)
+{-# INLINE rhythmicity0FH #-}
+
+rhythmicity0F :: Double -> String -> Double
+rhythmicity0F k = rhythmicity0FH syllableDurationsD k
+{-# INLINE rhythmicity0F #-}
+
+rhythmicity02F :: Double -> String -> Double
+rhythmicity02F k = rhythmicity0FH syllableDurationsD2 k
+{-# INLINE rhythmicity02F #-}
+
+rhythmicity03F :: Double -> String -> Double
+rhythmicity03F k = rhythmicity0FH syllableDurationsD3 k
+{-# INLINE rhythmicity03F #-}
+
+rhythmicity04F :: Double -> String -> Double
+rhythmicity04F k = rhythmicity0FH syllableDurationsD4 k
+{-# INLINE rhythmicity04F #-}
+
+--------------------------------------------------------
+
+rhythmicityKFH :: ([[[Sound8]]] -> [[Double]]) -> Double -> Double -> Double -> String -> Double
+rhythmicityKFH f k k2 k3 = rhythmicityGH f (eval23KF k k2 k3)
+{-# INLINE rhythmicityKFH #-}
+
+rhythmicityKF :: Double -> Double -> Double -> String -> Double
+rhythmicityKF k k2 k3 = rhythmicityKFH syllableDurationsD k k2 k3
+{-# INLINE rhythmicityKF #-}
+
+rhythmicityKF2 :: Double -> Double -> Double -> String -> Double
+rhythmicityKF2 k k2 k3 = rhythmicityKFH syllableDurationsD2 k k2 k3
+{-# INLINE rhythmicityKF2 #-}
+
+rhythmicityKF3 :: Double -> Double -> Double -> String -> Double
+rhythmicityKF3 k k2 k3 = rhythmicityKFH syllableDurationsD3 k k2 k3
+{-# INLINE rhythmicityKF3 #-}
+
+rhythmicityKF4 :: Double -> Double -> Double -> String -> Double
+rhythmicityKF4 k k2 k3 = rhythmicityKFH syllableDurationsD4 k k2 k3
+{-# INLINE rhythmicityKF4 #-}
+
+-----------------------------------------
+
+rhythmicityG
+  :: ([[[Sound8]]] -> [[Double]])-- ^ A function that specifies the syllables durations, analogue of (or one of) the
+  -- syllableDurationsD functions from the @ukrainian-phonetics-basics-array@ package.
+  -> String
+  -> [Double]
+rhythmicityG f xs
+ | null xs = []
+ | otherwise = mconcat . f . createSyllablesUkrS $ xs
+{-# INLINE rhythmicityG #-}
diff --git a/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG2CommonOld.hs b/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG2CommonOld.hs
new file mode 100644
--- /dev/null
+++ b/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG2CommonOld.hs
@@ -0,0 +1,48 @@
+{-# OPTIONS_HADDOCK show-extensions #-}
+
+-- |
+-- Module      :  Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld
+-- Copyright   :  (c) OleksandrZhabenko 2020-2022
+-- License     :  MIT
+-- Stability   :  Experimental
+-- Maintainer  :  olexandr543@yahoo.com
+--
+-- Generalization and extension of the functionality of the DobutokO.Poetry.Norms
+-- and DobutokO.Poetry.Norms.Extended modules
+-- from the @dobutokO-poetry@ package. Uses syllables information.
+-- Instead of the vector-related, uses just arrays.
+
+{-# LANGUAGE CPP, BangPatterns #-}
+
+module Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld where
+
+#ifdef __GLASGOW_HASKELL__
+#if __GLASGOW_HASKELL__>=710
+/* code that applies only to GHC 7.10.* and higher versions */
+import GHC.Base (mconcat)
+#endif
+#endif
+
+import Phonetic.Languages.Array.Ukrainian.Common
+import Languages.Rhythmicity
+import Languages.Rhythmicity.Factor
+import Melodics.Ukrainian.ArrInt8 (Sound8,FlowSound)
+import Languages.Phonetic.Ukrainian.Syllable.ArrInt8
+import Data.Maybe (isNothing)
+import Text.Read (readMaybe)
+import GHC.Arr
+import GHC.Int
+
+#ifdef __GLASGOW_HASKELL__
+#if __GLASGOW_HASKELL__==708
+/* code that applies only to GHC 7.8.* */
+mconcat = concat
+#endif
+#endif
+
+rhythmicityGH :: ([[[Sound8]]] -> [[Double]]) -> ([[Double]] -> Double) -> String -> Double
+rhythmicityGH f g xs
+ | null xs = 0.0
+ | otherwise = g . f . createSyllablesUkrS $ xs
+{-# INLINE rhythmicityGH #-}
+
diff --git a/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG2HOld.hs b/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG2HOld.hs
new file mode 100644
--- /dev/null
+++ b/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG2HOld.hs
@@ -0,0 +1,215 @@
+{-# OPTIONS_HADDOCK show-extensions #-}
+
+-- |
+-- Module      :  Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2HOld
+-- Copyright   :  (c) OleksandrZhabenko 2020-2022
+-- License     :  MIT
+-- Stability   :  Experimental
+-- Maintainer  :  olexandr543@yahoo.com
+--
+-- Generalization and extension of the functionality of the DobutokO.Poetry.Norms
+-- and DobutokO.Poetry.Norms.Extended modules
+-- from the @dobutokO-poetry@ package. Uses syllables information.
+-- Instead of the vector-related, uses just arrays.
+
+{-# LANGUAGE CPP, BangPatterns, MultiWayIf #-}
+
+module Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2HOld (
+  -- * General
+  rhythmicity
+) where
+
+#ifdef __GLASGOW_HASKELL__
+#if __GLASGOW_HASKELL__>=710
+/* code that applies only to GHC 7.10.* and higher versions */
+import GHC.Base (mconcat)
+#endif
+#endif
+
+import Phonetic.Languages.Array.Ukrainian.Common
+import Languages.Phonetic.Ukrainian.Syllable.Double.ArrInt8
+import Melodics.Ukrainian.ArrInt8 (Sound8,FlowSound)
+import Languages.Phonetic.Ukrainian.Syllable.ArrInt8
+import Data.Maybe (fromMaybe)
+import Text.Read (readMaybe)
+import Rhythmicity.TwoFourth
+import Rhythmicity.PolyRhythm
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG201Old
+import GHC.Arr (Array)
+import GHC.Int (Int8)
+
+#ifdef __GLASGOW_HASKELL__
+#if __GLASGOW_HASKELL__==708
+/* code that applies only to GHC 7.8.* */
+mconcat = concat
+#endif
+#endif
+
+rhythmicity :: Double -> String -> Coeffs2 -> String -> Double
+rhythmicity k choice CF0 = if
+ | take 1 choice `elem` ["c","M","N"] || (take 1 choice >= "A" && take 1 choice <= "F") -> let just_probe = readRhythmicity choice in
+           case just_probe of
+             Just (P1 ch rh n) -> rhythmicityABC 1.0 2.0 0.125 ch rh . mconcat . (helperF4 n) . createSyllablesUkrS
+             Just (P2 ch rh r n) -> case take 1 choice of
+                   "A" -> rhythmicityPolyWeightedLEF2 1.0 r ch rh . mconcat . (helperF4 n) . createSyllablesUkrS
+                   "D" -> rhythmicityPolyWeightedLF2 1.0 r ch rh . mconcat . (helperF4 n) . createSyllablesUkrS
+                   "E" -> rhythmicityPolyWeightedLEF3 1.0 r ch rh . mconcat . (helperF4 n) . createSyllablesUkrS
+                   "F" -> rhythmicityPolyWeightedLF3 1.0 r ch rh . mconcat . (helperF4 n) . createSyllablesUkrS
+                   "B" -> rhythmicityPolyWeightedEF2 1.0 r ch rh . mconcat . (helperF4 n) . createSyllablesUkrS
+                   "C" -> rhythmicityPolyWeightedF2 1.0 r ch rh . mconcat . (helperF4 n) . createSyllablesUkrS
+                   "M" -> rhythmicityPolyWeightedEF3 1.0 r ch rh . mconcat . (helperF4 n) . createSyllablesUkrS
+                   "N" -> rhythmicityPolyWeightedF3 1.0 r ch rh . mconcat . (helperF4 n) . createSyllablesUkrS
+                   "c" -> rhythmicityPoly 1.0 r ch rh . mconcat . (helperF4 n) . createSyllablesUkrS
+             _ -> rhythmicity04
+ | choice == "0y" -> rhythmicity0
+ | choice == "02y" -> rhythmicity02
+ | choice == "03y" -> rhythmicity03
+ | choice == "0z" -> rhythmicity0F k
+ | choice == "02z" -> rhythmicity02F k
+ | choice == "03z" -> rhythmicity03F k
+ | choice == "04z" -> rhythmicity04F k
+ | take 1 choice == "0" -> rhythmicity04
+ | take 1 choice == "w" -> if
+          | (drop 2 . take 3 $ choice) >= "1" && (drop 2 . take 3 $ choice) <= "4" ->
+             case take 2 choice of
+              "w0" -> wwF (drop 2 . take 3 $ choice) (Ch 1 1 4) (Rhythm 1 1 2)
+              "w1" -> wwF (drop 2 . take 3 $ choice) (Ch 1 0 4) (Rhythm 2 1 1)
+              "w2" -> wwF (drop 2 . take 3 $ choice) (Ch 0 1 4) (Rhythm 1 2 1)
+              "w3" -> wwF (drop 2 . take 3 $ choice) (Ch 0 0 4) (Rhythm 1 1 2)
+              _ -> rhythmicity04
+          | otherwise -> rhythmicity04
+ | take 1 choice == "x" -> if
+          | (drop 2 . take 3 $ choice) >= "1" && (drop 2 . take 3 $ choice) <= "4" ->
+             case take 2 choice of
+              "x0" -> xxF (drop 2 . take 3 $ choice) (Ch 1 1 4) (Rhythm 1 1 2)
+              "x1" -> xxF (drop 2 . take 3 $ choice) (Ch 1 0 4) (Rhythm 2 1 1)
+              "x2" -> xxF (drop 2 . take 3 $ choice) (Ch 0 1 4) (Rhythm 1 2 1)
+              "x3" -> xxF (drop 2 . take 3 $ choice) (Ch 0 0 4) (Rhythm 1 1 2)
+              _ -> rhythmicity04
+          | otherwise -> rhythmicity04
+ | otherwise -> if
+    | (take 1 choice == "b" || ((take 1 choice >= "d" && take 1 choice <= "v") || (take 1 choice >= "I" && take 1 choice <= "Z"))) && (drop 2 . take 3 $ choice) >= "1" && (drop 2 . take 3 $ choice) <= "4" ->
+        case take 1 choice of
+          "b" -> g rhythmicityPolyWeightedLEF3 5 1
+          "d" -> g rhythmicityPolyWeightedLEF30 5 1
+          "e" -> g rhythmicityPolyWeightedLEF3 6 2
+          "f" -> g rhythmicityPolyWeightedLEF30 6 2
+          "g" -> g rhythmicityPolyWeightedLEF2 5 1
+          "h" -> g rhythmicityPolyWeightedLEF20 5 1
+          "i" -> g rhythmicityPolyWeightedLEF2 6 2
+          "j" -> g rhythmicityPolyWeightedLEF20 6 2
+          "k" -> g rhythmicityPolyWeightedLF3 5 1
+          "l" -> g rhythmicityPolyWeightedLF30 5 1
+          "m" -> g rhythmicityPolyWeightedLF3 6 2
+          "n" -> g rhythmicityPolyWeightedLF30 6 2
+          "o" -> g rhythmicityPolyWeightedLF2 5 1
+          "p" -> g rhythmicityPolyWeightedLF20 5 1
+          "q" -> g rhythmicityPolyWeightedLF2 6 2
+          "r" -> g rhythmicityPolyWeightedLF20 6 2
+          "I" -> g rhythmicityPolyWeightedEF3 5 1
+          "J" -> g rhythmicityPolyWeightedEF30 5 1
+          "K" -> g rhythmicityPolyWeightedEF3 6 2
+          "L" -> g rhythmicityPolyWeightedEF30 6 2
+          "O" -> g rhythmicityPolyWeightedEF2 5 1
+          "P" -> g rhythmicityPolyWeightedEF20 5 1
+          "Q" -> g rhythmicityPolyWeightedEF2 6 2
+          "R" -> g rhythmicityPolyWeightedEF20 6 2
+          "W" -> g rhythmicityPolyWeightedF3 5 1
+          "X" -> g rhythmicityPolyWeightedF30 5 1
+          "Y" -> g rhythmicityPolyWeightedF3 6 2
+          "Z" -> g rhythmicityPolyWeightedF30 6 2
+          "U" -> g rhythmicityPolyWeightedF2 5 1
+          "V" -> g rhythmicityPolyWeightedF20 5 1
+          "S" -> g rhythmicityPolyWeightedF2 6 2
+          "T" -> g rhythmicityPolyWeightedF20 6 2
+          "u" -> g rhythmicityPoly 5 1
+          "v" -> g rhythmicityPoly0 5 1
+          "s" -> g rhythmicityPoly 6 2
+          "t" -> g rhythmicityPoly0 6 2
+    | otherwise -> rhythmicity04
+        where h1 f ts xs m n = f 1.0 4 (PolyCh xs m) (PolyRhythm [1,2,1,n]) . mconcat . (case readMaybe ts::Maybe Int of { Just 1 -> syllableDurationsD ; Just 2 -> syllableDurationsD2 ; Just 3 -> syllableDurationsD3 ; Just 4 -> syllableDurationsD4 }) . createSyllablesUkrS
+              h2 f ts xs m n = f 1.0 4 (PolyCh xs m) (PolyRhythm [2,1,1,n]) . mconcat . (case readMaybe ts::Maybe Int of { Just 1 -> syllableDurationsD ; Just 2 -> syllableDurationsD2 ; Just 3 -> syllableDurationsD3 ; Just 4 -> syllableDurationsD4 }) . createSyllablesUkrS
+              g f m n
+                | drop 1 choice `elem` ["01","02","03","04"] = h1 f (drop 2 . take 3 $ choice) [True,True,True] m n
+                | drop 1 choice `elem` ["11","12","13","14"] = h1 f (drop 2 . take 3 $ choice) [True,True,False] m n
+                | drop 1 choice `elem` ["21","22","23","24"] = h1 f (drop 2 . take 3 $ choice) [True,False,True] m n
+                | drop 1 choice `elem` ["31","32","33","34"] = h1 f (drop 2 . take 3 $ choice) [True,False,False] m n
+                | drop 1 choice `elem` ["41","42","43","44"] = h2 f (drop 2 . take 3 $ choice) [True,True,True] m n
+                | drop 1 choice `elem` ["51","52","53","54"] = h2 f (drop 2 . take 3 $ choice) [True,True,False] m n
+                | drop 1 choice `elem` ["61","62","63","64"] = h2 f (drop 2 . take 3 $ choice) [True,False,True] m n
+                | drop 1 choice `elem` ["71","72","73","74"] = h2 f (drop 2 . take 3 $ choice) [True,False,False] m n
+                | otherwise = rhythmicity04
+              w1F f ch rh = rhythmicityABC 1.0 2.0 0.125 ch rh . mconcat . f . createSyllablesUkrS
+              wwF2 g2 xs = let (Just n) = readMaybe xs::Maybe Int in
+                      case n `rem` 4 of
+                       1 -> g2 syllableDurationsD
+                       2 -> g2 syllableDurationsD2
+                       3 -> g2 syllableDurationsD3
+                       _ -> g2 syllableDurationsD4
+              x1F f ch rh = rhythmicityABC0 1.0 2.0 0.125 ch rh . mconcat . f . createSyllablesUkrS
+              xxF = wwF2 x1F
+              wwF = wwF2 w1F
+              {-# INLINE w1F #-}
+              {-# INLINE wwF2 #-}
+              {-# INLINE x1F #-}
+              {-# INLINE xxF #-}
+              {-# INLINE wwF #-}
+rhythmicity k choice (CF2 x y) =
+ case take 1 choice of
+  "0" -> case choice of
+           "0y" -> rhythmicityK (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+           "02y" -> rhythmicityK2 (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+           "03y" -> rhythmicityK3 (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+           "0z" -> rhythmicityKF k (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+           "02z" -> rhythmicityKF2 k (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+           "03z" -> rhythmicityKF3 k (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+           "04z" -> rhythmicityKF4 k (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+           _ -> rhythmicityK4 (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+  "w" -> if
+          | (drop 2 . take 3 $ choice) >= "1" && (drop 2 . take 3 $ choice) <= "4" ->
+             case take 2 choice of
+              "w0" -> wwF (drop 2 . take 3 $ choice) (Ch 1 1 4) (Rhythm 1 1 2)
+              "w1" -> wwF (drop 2 . take 3 $ choice) (Ch 1 0 4) (Rhythm 2 1 1)
+              "w2" -> wwF (drop 2 . take 3 $ choice) (Ch 0 1 4) (Rhythm 1 2 1)
+              "w3" -> wwF (drop 2 . take 3 $ choice) (Ch 0 0 4) (Rhythm 1 1 2)
+              _ -> rhythmicity04
+          | otherwise -> rhythmicity04
+              where w1F f ch rh = rhythmicityABC 1.0 (fromMaybe 2.0 x) (fromMaybe 0.125 y) ch rh . mconcat . f . createSyllablesUkrS
+                    wwF xs = let (Just n) = readMaybe xs::Maybe Int in
+                      case n `rem` 4 of
+                       1 -> w1F syllableDurationsD
+                       2 -> w1F syllableDurationsD2
+                       3 -> w1F syllableDurationsD3
+                       _ -> w1F syllableDurationsD4
+                    {-# INLINE w1F #-}
+                    {-# INLINE wwF #-}
+  "x" -> if
+          | (drop 2 . take 3 $ choice) >= "1" && (drop 2 . take 3 $ choice) <= "4" ->
+             case take 2 choice of
+              "x0" -> xxF (drop 2 . take 3 $ choice) (Ch 1 1 4) (Rhythm 1 1 2)
+              "x1" -> xxF (drop 2 . take 3 $ choice) (Ch 1 0 4) (Rhythm 2 1 1)
+              "x2" -> xxF (drop 2 . take 3 $ choice) (Ch 0 1 4) (Rhythm 1 2 1)
+              "x3" -> xxF (drop 2 . take 3 $ choice) (Ch 0 0 4) (Rhythm 1 1 2)
+              _ -> rhythmicity04
+          | otherwise -> rhythmicity04
+              where x1F f ch rh = rhythmicityABC0 1.0 (fromMaybe 2.0 x) (fromMaybe 0.125 y) ch rh . mconcat . f . createSyllablesUkrS
+                    xxF xs = let (Just n) = readMaybe xs::Maybe Int in
+                      case n `rem` 4 of
+                       1 -> x1F syllableDurationsD
+                       2 -> x1F syllableDurationsD2
+                       3 -> x1F syllableDurationsD3
+                       _ -> x1F syllableDurationsD4
+                    {-# INLINE x1F #-}
+                    {-# INLINE xxF #-}
+  _ -> if
+     | ((take 1 choice >= "b" && take 1 choice <= "v") || (take 1 choice >= "A" && take 1 choice <= "Z" && take 1 choice `notElem` ["G","H"])) -> rhythmicity k choice CF0
+     | otherwise -> rhythmicityK4 (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+
+helperF4 :: Int -> [[[Sound8]]] -> [[Double]]
+helperF4 n
+ | n == 1 = syllableDurationsD
+ | n == 2 = syllableDurationsD2
+ | n == 3 = syllableDurationsD3
+ | otherwise = syllableDurationsD4
+
diff --git a/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG2HprimeOld.hs b/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG2HprimeOld.hs
new file mode 100644
--- /dev/null
+++ b/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG2HprimeOld.hs
@@ -0,0 +1,254 @@
+{-# OPTIONS_HADDOCK show-extensions #-}
+
+-- |
+-- Module      :  Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2HprimeOld
+-- Copyright   :  (c) OleksandrZhabenko 2020-2022
+-- License     :  MIT
+-- Stability   :  Experimental
+-- Maintainer  :  olexandr543@yahoo.com
+--
+-- Generalization and extension of the functionality of the DobutokO.Poetry.Norms
+-- and DobutokO.Poetry.Norms.Extended modules
+-- from the @dobutokO-poetry@ package. Uses syllables information.
+-- Instead of the vector-related, uses just arrays.
+
+{-# LANGUAGE CPP, BangPatterns, MultiWayIf #-}
+
+module Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2HprimeOld (
+  -- * General
+  rhythmicityH
+  , rhythmicityH'
+) where
+
+#ifdef __GLASGOW_HASKELL__
+#if __GLASGOW_HASKELL__>=710
+/* code that applies only to GHC 7.10.* and higher versions */
+import GHC.Base (mconcat)
+#endif
+#endif
+
+import Phonetic.Languages.Array.Ukrainian.Common
+import Languages.Phonetic.Ukrainian.Syllable.Double.ArrInt8
+import Melodics.Ukrainian.ArrInt8 (Sound8, FlowSound)
+import Languages.Phonetic.Ukrainian.Syllable.ArrInt8
+import Data.Maybe (fromMaybe)
+import Text.Read (readMaybe)
+import Rhythmicity.TwoFourth
+import Rhythmicity.PolyRhythm
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG201Old
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2HOld
+import GHC.Arr (Array)
+import GHC.Int (Int8)
+
+#ifdef __GLASGOW_HASKELL__
+#if __GLASGOW_HASKELL__==708
+/* code that applies only to GHC 7.8.* */
+mconcat = concat
+#endif
+#endif
+
+{-| Allows to use the user-defined custom 'Sound8' durations. This is used when the first character in the second argument is
+\'H\'.
+-}
+rhythmicityH
+  :: Double
+  -> String
+  -> [[[[Sound8]]] -> [[Double]]]
+  -> Coeffs2
+  -> String
+  -> Double
+rhythmicityH k choice syllableDurationsDs coeffs
+  | take 1 choice == "H" = rhythmicityH' k (drop 1 choice) syllableDurationsDs coeffs
+  | otherwise = rhythmicity k choice coeffs
+
+rhythmicityH'
+  :: Double
+  -> String
+  -> [[[[Sound8]]] -> [[Double]]]
+  -> Coeffs2
+  -> String
+  -> Double
+rhythmicityH' k choice syllableDurationsDs CF0 = if
+ | take 1 choice `elem` ["c","M","N"] || (take 1 choice >= "A" && take 1 choice <= "F") -> let just_probe = readRhythmicity choice in
+           case just_probe of
+             Just (P1 ch rh n) -> rhythmicityABC 1.0 2.0 0.125 ch rh . rhythmicityG (helperHF4 n syllableDurationsDs)
+             Just (P2 ch rh r n) -> case take 1 choice of
+                   "A" -> rhythmicityPolyWeightedLEF2 1.0 r ch rh . rhythmicityG (helperHF4 n syllableDurationsDs)
+                   "D" -> rhythmicityPolyWeightedLF2 1.0 r ch rh . rhythmicityG (helperHF4 n syllableDurationsDs)
+                   "E" -> rhythmicityPolyWeightedLEF3 1.0 r ch rh . rhythmicityG (helperHF4 n syllableDurationsDs)
+                   "F" -> rhythmicityPolyWeightedLF3 1.0 r ch rh . rhythmicityG (helperHF4 n syllableDurationsDs)
+                   "B" -> rhythmicityPolyWeightedEF2 1.0 r ch rh . rhythmicityG (helperHF4 n syllableDurationsDs)
+                   "C" -> rhythmicityPolyWeightedF2 1.0 r ch rh . rhythmicityG (helperHF4 n syllableDurationsDs)
+                   "M" -> rhythmicityPolyWeightedEF3 1.0 r ch rh . rhythmicityG (helperHF4 n syllableDurationsDs)
+                   "N" -> rhythmicityPolyWeightedF3 1.0 r ch rh . rhythmicityG (helperHF4 n syllableDurationsDs)
+                   "c" -> rhythmicityPoly 1.0 r ch rh . rhythmicityG (helperHF4 n syllableDurationsDs)
+             _ -> rhythmicity0H (helperHF4 1 syllableDurationsDs)
+ | choice == "0y" -> rhythmicity0H (helperHF4 1 syllableDurationsDs)
+ | take 1 choice == "0" && drop 2 (take 3 choice) == "y" ->
+    let n2 = readMaybe (drop 1 . take 2 $ choice)::Maybe Int in
+      case n2 of
+        Just n3 -> rhythmicity0H (helperHF4 n3 syllableDurationsDs)
+        Nothing -> rhythmicity0H (helperHF4 1 syllableDurationsDs)
+ | choice == "0z" -> rhythmicity0FH (helperHF4 1 syllableDurationsDs) k
+ | take 1 choice == "0" && drop 2 (take 3 choice) == "z" ->
+    let n2 = readMaybe (drop 1 . take 2 $ choice)::Maybe Int in
+      case n2 of
+        Just n3 -> rhythmicity0FH (helperHF4 n3 syllableDurationsDs) k
+        Nothing -> rhythmicity0FH (helperHF4 1 syllableDurationsDs) k
+ | take 1 choice == "0" -> rhythmicity0H (helperHF4 1 syllableDurationsDs)
+ | take 1 choice == "w" -> if
+          | (drop 2 . take 3 $ choice) >= "1" && (drop 2 . take 3 $ choice) <= "4" ->
+             case take 2 choice of
+              "w0" -> wwF (drop 2 . take 3 $ choice) (Ch 1 1 4) (Rhythm 1 1 2)
+              "w1" -> wwF (drop 2 . take 3 $ choice) (Ch 1 0 4) (Rhythm 2 1 1)
+              "w2" -> wwF (drop 2 . take 3 $ choice) (Ch 0 1 4) (Rhythm 1 2 1)
+              "w3" -> wwF (drop 2 . take 3 $ choice) (Ch 0 0 4) (Rhythm 1 1 2)
+              _ -> rhythmicity0H (helperHF4 1 syllableDurationsDs)
+          | otherwise -> rhythmicity0H (helperHF4 1 syllableDurationsDs)
+ | take 1 choice == "x" -> if
+          | (drop 2 . take 3 $ choice) >= "1" && (drop 2 . take 3 $ choice) <= "4" ->
+             case take 2 choice of
+              "x0" -> xxF (drop 2 . take 3 $ choice) (Ch 1 1 4) (Rhythm 1 1 2)
+              "x1" -> xxF (drop 2 . take 3 $ choice) (Ch 1 0 4) (Rhythm 2 1 1)
+              "x2" -> xxF (drop 2 . take 3 $ choice) (Ch 0 1 4) (Rhythm 1 2 1)
+              "x3" -> xxF (drop 2 . take 3 $ choice) (Ch 0 0 4) (Rhythm 1 1 2)
+              _ -> rhythmicity0H (helperHF4 1 syllableDurationsDs)
+          | otherwise -> rhythmicity0H (helperHF4 1 syllableDurationsDs)
+ | otherwise -> if
+    | (take 1 choice == "b" || ((take 1 choice >= "d" && take 1 choice <= "v") || (take 1 choice >= "I" && take 1 choice <= "Z"))) && (drop 2 . take 3 $ choice) >= "1" && (drop 2 . take 3 $ choice) <= "9" ->
+        case take 1 choice of
+          "b" -> g rhythmicityPolyWeightedLEF3 5 1
+          "d" -> g rhythmicityPolyWeightedLEF30 5 1
+          "e" -> g rhythmicityPolyWeightedLEF3 6 2
+          "f" -> g rhythmicityPolyWeightedLEF30 6 2
+          "g" -> g rhythmicityPolyWeightedLEF2 5 1
+          "h" -> g rhythmicityPolyWeightedLEF20 5 1
+          "i" -> g rhythmicityPolyWeightedLEF2 6 2
+          "j" -> g rhythmicityPolyWeightedLEF20 6 2
+          "k" -> g rhythmicityPolyWeightedLF3 5 1
+          "l" -> g rhythmicityPolyWeightedLF30 5 1
+          "m" -> g rhythmicityPolyWeightedLF3 6 2
+          "n" -> g rhythmicityPolyWeightedLF30 6 2
+          "o" -> g rhythmicityPolyWeightedLF2 5 1
+          "p" -> g rhythmicityPolyWeightedLF20 5 1
+          "q" -> g rhythmicityPolyWeightedLF2 6 2
+          "r" -> g rhythmicityPolyWeightedLF20 6 2
+          "I" -> g rhythmicityPolyWeightedEF3 5 1
+          "J" -> g rhythmicityPolyWeightedEF30 5 1
+          "K" -> g rhythmicityPolyWeightedEF3 6 2
+          "L" -> g rhythmicityPolyWeightedEF30 6 2
+          "O" -> g rhythmicityPolyWeightedEF2 5 1
+          "P" -> g rhythmicityPolyWeightedEF20 5 1
+          "Q" -> g rhythmicityPolyWeightedEF2 6 2
+          "R" -> g rhythmicityPolyWeightedEF20 6 2
+          "W" -> g rhythmicityPolyWeightedF3 5 1
+          "X" -> g rhythmicityPolyWeightedF30 5 1
+          "Y" -> g rhythmicityPolyWeightedF3 6 2
+          "Z" -> g rhythmicityPolyWeightedF30 6 2
+          "U" -> g rhythmicityPolyWeightedF2 5 1
+          "V" -> g rhythmicityPolyWeightedF20 5 1
+          "S" -> g rhythmicityPolyWeightedF2 6 2
+          "T" -> g rhythmicityPolyWeightedF20 6 2
+          "u" -> g rhythmicityPoly 5 1
+          "v" -> g rhythmicityPoly0 5 1
+          "s" -> g rhythmicityPoly 6 2
+          "t" -> g rhythmicityPoly0 6 2
+    | otherwise -> rhythmicity0H
+       (let ts = drop 2 . take 3 $ choice in
+          case ts of { [] -> syllableDurationsD4 ; ks ->
+            let q = readMaybe ks::Maybe Int in
+              case q of {Just q' -> helperHF4 q' syllableDurationsDs; ~Nothing -> syllableDurationsD4 }})
+        where h1 f ts xs m n = f 1.0 4 (PolyCh xs m) (PolyRhythm [1,2,1,n]) . mconcat .
+                  (case ts of { [] -> syllableDurationsD4 ; ks -> let q = readMaybe ks::Maybe Int in
+                      case q of {Just q' -> helperHF4 q' syllableDurationsDs; ~Nothing -> syllableDurationsD4 }}) .
+                        createSyllablesUkrS
+              h2 f ts xs m n = f 1.0 4 (PolyCh xs m) (PolyRhythm [2,1,1,n]) . mconcat .
+                  (case ts of { [] -> syllableDurationsD4 ; ks -> let q = readMaybe ks::Maybe Int in
+                      case q of {Just q' -> helperHF4 q' syllableDurationsDs; ~Nothing -> syllableDurationsD4 }}) .
+                        createSyllablesUkrS
+              g f m n
+                | drop 1 (take 2 choice) == "0" = h1 f (drop 2 . take 3 $ choice) [True,True,True] m n
+                | drop 1 (take 2 choice) == "1" = h1 f (drop 2 . take 3 $ choice) [True,True,False] m n
+                | drop 1 (take 2 choice) == "2" = h1 f (drop 2 . take 3 $ choice) [True,False,True] m n
+                | drop 1 (take 2 choice) == "3" = h1 f (drop 2 . take 3 $ choice) [True,False,False] m n
+                | drop 1 (take 2 choice) == "4" = h2 f (drop 2 . take 3 $ choice) [True,True,True] m n
+                | drop 1 (take 2 choice) == "5" = h2 f (drop 2 . take 3 $ choice) [True,True,False] m n
+                | drop 1 (take 2 choice) == "6" = h2 f (drop 2 . take 3 $ choice) [True,False,True] m n
+                | drop 1 (take 2 choice) == "7" = h2 f (drop 2 . take 3 $ choice) [True,False,False] m n
+                | otherwise = rhythmicity0H (helperHF4 n syllableDurationsDs)
+              w1F f ch rh = rhythmicityABC 1.0 2.0 0.125 ch rh . mconcat . f . createSyllablesUkrS
+              wwF2 g2 xs =
+                let n1 = readMaybe xs::Maybe Int in
+                   case n1 of
+                     Just n2 -> g2 (helperHF4 n2 syllableDurationsDs)
+                     Nothing -> g2 syllableDurationsD4
+              x1F f ch rh = rhythmicityABC0 1.0 2.0 0.125 ch rh . mconcat . f . createSyllablesUkrS
+              xxF = wwF2 x1F
+              wwF = wwF2 w1F
+              {-# INLINE w1F #-}
+              {-# INLINE wwF2 #-}
+              {-# INLINE x1F #-}
+              {-# INLINE xxF #-}
+              {-# INLINE wwF #-}
+rhythmicityH' k choice syllableDurationsDs (CF2 x y) =
+ case take 1 choice of
+  "0" -> case choice of
+           "0y" -> rhythmicityKH (helperHF4 1 syllableDurationsDs) (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+           "02y" -> rhythmicityKH (helperHF4 2 syllableDurationsDs) (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+           "03y" -> rhythmicityKH (helperHF4 3 syllableDurationsDs) (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+           "0z" -> rhythmicityKFH (helperHF4 1 syllableDurationsDs) k (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+           "02z" -> rhythmicityKFH (helperHF4 2 syllableDurationsDs) k (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+           "03z" -> rhythmicityKFH (helperHF4 3 syllableDurationsDs) k (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+           "04z" -> rhythmicityKFH (helperHF4 4 syllableDurationsDs) k (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+           _ -> rhythmicityKH (helperHF4 1 syllableDurationsDs) (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+  "w" -> if
+          | (drop 2 . take 3 $ choice) >= "1" && (drop 2 . take 3 $ choice) <= "4" ->
+             case take 2 choice of
+              "w0" -> wwF (drop 2 . take 3 $ choice) (Ch 1 1 4) (Rhythm 1 1 2)
+              "w1" -> wwF (drop 2 . take 3 $ choice) (Ch 1 0 4) (Rhythm 2 1 1)
+              "w2" -> wwF (drop 2 . take 3 $ choice) (Ch 0 1 4) (Rhythm 1 2 1)
+              "w3" -> wwF (drop 2 . take 3 $ choice) (Ch 0 0 4) (Rhythm 1 1 2)
+              _ -> rhythmicity0H (helperHF4 1 syllableDurationsDs)
+          | otherwise -> rhythmicity0H (helperHF4 1 syllableDurationsDs)
+              where w1F f ch rh = rhythmicityABC 1.0 (fromMaybe 2.0 x) (fromMaybe 0.125 y) ch rh . mconcat . f . createSyllablesUkrS
+                    wwF xs =
+                      let n1 = readMaybe xs::Maybe Int in
+                        case n1 of
+                         Just n2 -> w1F (helperHF4 n2 syllableDurationsDs)
+                         Nothing -> w1F syllableDurationsD4
+                    {-# INLINE w1F #-}
+                    {-# INLINE wwF #-}
+  "x" -> if
+          | (drop 2 . take 3 $ choice) >= "1" && (drop 2 . take 3 $ choice) <= "4" ->
+             case take 2 choice of
+              "x0" -> xxF (drop 2 . take 3 $ choice) (Ch 1 1 4) (Rhythm 1 1 2)
+              "x1" -> xxF (drop 2 . take 3 $ choice) (Ch 1 0 4) (Rhythm 2 1 1)
+              "x2" -> xxF (drop 2 . take 3 $ choice) (Ch 0 1 4) (Rhythm 1 2 1)
+              "x3" -> xxF (drop 2 . take 3 $ choice) (Ch 0 0 4) (Rhythm 1 1 2)
+              _ -> rhythmicity0H (helperHF4 1 syllableDurationsDs)
+          | otherwise -> rhythmicity0H (helperHF4 1 syllableDurationsDs)
+              where x1F f ch rh = rhythmicityABC0 1.0 (fromMaybe 2.0 x) (fromMaybe 0.125 y) ch rh . mconcat . f . createSyllablesUkrS
+                    xxF xs =
+                      let n1 = readMaybe xs::Maybe Int in
+                        case n1 of
+                         Just n2 -> x1F (helperHF4 n2 syllableDurationsDs)
+                         Nothing -> x1F syllableDurationsD4
+                    {-# INLINE x1F #-}
+                    {-# INLINE xxF #-}
+  _ -> if
+     | ((take 1 choice >= "b" && take 1 choice <= "v") || (take 1 choice >= "A" && take 1 choice <= "Z" && take 1 choice `notElem` ["G","H"])) -> rhythmicityH' k choice syllableDurationsDs CF0
+     | otherwise -> rhythmicityKH
+        (let ts = drop 2 . take 3 $ choice in
+          case ts of { [] -> syllableDurationsD4 ; ks ->
+            let q = readMaybe ks::Maybe Int in
+              case q of {Just q' -> helperHF4 q' syllableDurationsDs; ~Nothing -> syllableDurationsD4 }})
+                (fromMaybe 1.0 x) (fromMaybe 1.0 y)
+
+
+helperHF4 :: Int -> [[[[Sound8]]] -> [[Double]]] -> [[[Sound8]]] -> [[Double]]
+helperHF4 n xs
+  | null xs = syllableDurationsD4
+  | (n `rem` length xs) == 0 = head xs
+  | otherwise = xs !! ((n `rem` length xs) - 1)
+
diff --git a/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG2Old.hs b/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG2Old.hs
new file mode 100644
--- /dev/null
+++ b/Phonetic/Languages/Array/Ukrainian/PropertiesSyllablesG2Old.hs
@@ -0,0 +1,59 @@
+{-# OPTIONS_HADDOCK show-extensions #-}
+
+-- |
+-- Module      :  Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2Old
+-- Copyright   :  (c) OleksandrZhabenko 2020-2022
+-- License     :  MIT
+-- Stability   :  Experimental
+-- Maintainer  :  olexandr543@yahoo.com
+--
+-- Generalization and extension of the functionality of the DobutokO.Poetry.Norms
+-- and DobutokO.Poetry.Norms.Extended modules
+-- from the @dobutokO-poetry@ package. Uses syllables information.
+-- Instead of the vector-related, uses just arrays.
+
+module Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2Old (
+  -- * Rhythmicity properties
+  -- ** Rhythmicity properties (semi-empirical)
+  -- *** General ones
+  rhythmicity0H
+  , rhythmicity0FH
+  , rhythmicityKH
+  , rhythmicityKFH
+  -- *** Simple one
+  , rhythmicity0
+  , rhythmicity0F
+  -- *** With weight coefficients
+  , rhythmicityK
+  , rhythmicityKF
+  -- ** Rhythmicity properties from generated with r-glpk-phonetic-languages-ukrainian-durations package (since 0.2.0.0 version)
+  -- *** Simple one
+  , rhythmicity02
+  , rhythmicity02F
+  -- *** With weight coefficients
+  , rhythmicityK2
+  , rhythmicityKF2
+  -- ** NEW Rhythmicity properties from generated with r-glpk-phonetic-languages-ukrainian-durations package
+  -- *** Simple ones
+  , rhythmicity03
+  , rhythmicity03F
+  , rhythmicity04
+  , rhythmicity04F
+  -- *** With weight coefficients
+  , rhythmicityK3
+  , rhythmicityKF3
+  , rhythmicityK4
+  , rhythmicityKF4
+  -- ** General
+  , rhythmicityG
+  , rhythmicityGH
+  , rhythmicity
+  , rhythmicityH
+  , rhythmicityH'
+) where
+
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG201Old
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2HOld
+import Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2HprimeOld
+import Phonetic.Languages.Array.Ukrainian.Common
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain
diff --git a/phonetic-languages-simplified-properties-array-old.cabal b/phonetic-languages-simplified-properties-array-old.cabal
new file mode 100644
--- /dev/null
+++ b/phonetic-languages-simplified-properties-array-old.cabal
@@ -0,0 +1,22 @@
+name:                phonetic-languages-simplified-properties-array-old
+version:             0.1.0.0
+synopsis:            Some properties of the data related to rhythmicity.
+description:         Are taken from the phonetic-languages-simplified-properties-array to provide the old functionality (for compatibility). If possible, use the phonetic-languages-simplified-properties-array instead.
+homepage:            https://hackage.haskell.org/package/phonetic-languages-simplified-properties-array-old
+license:             MIT
+license-file:        LICENSE
+author:              OleksandrZhabenko
+maintainer:          olexandr543@yahoo.com
+copyright:           Oleksandr Zhabenko
+category:            Language, Math, Game
+build-type:          Simple
+extra-source-files:  CHANGELOG.md
+cabal-version:       >=1.10
+
+library
+  exposed-modules:     Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2Old, Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2Old, Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2CommonOld, Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG201Old, Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2HOld, Phonetic.Languages.Array.Ukrainian.PropertiesSyllablesG2HprimeOld, Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2CommonOld, Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2RhythmicityOld, Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG2DiverseOld, Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG21Old, Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG22Old, Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG23Old, Phonetic.Languages.Array.Ukrainian.PropertiesFuncRepG24Old
+  -- other-modules:
+  other-extensions:    BangPatterns, CPP, MultiWayIf
+  build-depends:       base >=4.8 && <5, phonetic-languages-rhythmicity ==0.9.2.0, phonetic-languages-simplified-base ==0.5.0.0, ukrainian-phonetics-basic-array ==0.5.3.0, phonetic-languages-basis ==0.1.0.0, phonetic-languages-simplified-properties-array-common ==0.1.0.0
+  -- hs-source-dirs:
+  default-language:    Haskell2010