diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -401,3 +401,7 @@
 
 * Fourty-fourth version. Added github repository and bug reporting. Updated the dependencies, so that now there is aftovolio included. Some minor code improvements.
 
+## 0.44.1.0 -- 2024-12-20
+
+* Fourty-fourth version revised A. Fixed some issues with ported code.
+
diff --git a/DobutokO/Sound/Functional/Params.hs b/DobutokO/Sound/Functional/Params.hs
--- a/DobutokO/Sound/Functional/Params.hs
+++ b/DobutokO/Sound/Functional/Params.hs
@@ -450,8 +450,8 @@
 -- | Function is used to generate a rhythm of the resulting file \'end.wav\' from the Ukrainian text and a number of sounds either in the syllables or in the words without vowels.
 syllableStr :: Int -> String -> [Int]
 syllableStr n xs =
-  let ps = map fromIntegral . take n . cycle . concat . concat . createSyllablesUkrS $ xs
-      y  = sum . map fromIntegral $ ps in
+  let ps = map fromIntegral . take n . cycle . concatMap (map length) . createSyllablesUkrS $ xs
+      y  = sum ps in
        case y of
          0 -> [0]
          _ -> y:ps  
@@ -506,7 +506,7 @@
 -- | Generatlized version of the 'strToInt' with a possibility to specify your own 'Intervals'.
 strToIntG :: Intervals -> String -> Int
 strToIntG v =
-  getBFst' (0, listArray (0,28) . zip (["а","б","в","г","д","дж","дз","е","ж","з","и","й","к","л","м","н","о","п","р","с","т","у","ф","х","ц","ч","ш","і","ґ"]) . V.toList $ v)
+  getBFstLSorted' 0 (zip (["а","б","в","г","д","дж","дз","е","ж","з","и","й","к","л","м","н","о","п","р","с","т","у","ф","х","ц","ч","ш","і","ґ"]) . V.toList $ v)
 {-# INLINE strToIntG #-}
 
 -- | Generalized variant of the 'soundGenF31G' with a possibility to specify sound quality using the 'String' argument. For more information,
diff --git a/DobutokO/Sound/Uniq.hs b/DobutokO/Sound/Uniq.hs
--- a/DobutokO/Sound/Uniq.hs
+++ b/DobutokO/Sound/Uniq.hs
@@ -90,7 +90,7 @@
 -- 'String' structure of the uniqueness (see the documentation for @mmsyn7s@ and @uniqueness-periods@ packages) it produces the unique timbre.
 uniqOvertonesV :: Float -> String -> OvertonesO
 uniqOvertonesV note xs =
-  let ys = uniquenessPeriodsGI8 [100,101,102] . convertToProperUkrainianI8 $ xs
+  let ys = map fromIntegral . uniquenessPeriodsGI8 [100,101,102] . convertToProperUkrainianI8 $ xs :: [Int]
       z  = sum ys
       v  = V.fromList . fmap (\y -> fromIntegral y / fromIntegral z) $ ys
       z2 = V.length v
@@ -103,7 +103,7 @@
 -- The second 'String' is used to produce the signs for harmonics coefficients.
 uniqOvertonesV2 :: Float -> String -> String -> OvertonesO
 uniqOvertonesV2 note xs ts = 
-  let ys = uniquenessPeriodsGI8 [100,101,102] . convertToProperUkrainianI8 $ xs
+  let ys = map fromIntegral . uniquenessPeriodsGI8 [100,101,102] . convertToProperUkrainianI8 $ xs :: [Int]
       z  = sum ys
       v  = V.fromList . fmap (\y -> fromIntegral y / fromIntegral z) $ ys
       z2 = V.length v
@@ -690,3 +690,4 @@
 uniqOverSoXSynthNGen4E6GSuPar :: FilePath -> Params -> Float -> Float -> Float -> String -> String -> Intervals -> String -> String -> Float -> IO ()
 uniqOverSoXSynthNGen4E6GSuPar file params ampL time3 dAmpl wws tts v5 vs xxs limV = 
  uniqOverSoXSynthNGen4E6GPar file params ampL dAmpl (str2Durations xxs time3) wws tts (intervalsFromStringG v5 vs) (str2Volume xxs) limV
+
diff --git a/dobutokO2.cabal b/dobutokO2.cabal
--- a/dobutokO2.cabal
+++ b/dobutokO2.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                dobutokO2
-version:             0.44.0.0
+version:             0.44.1.0
 synopsis:            Helps to create experimental music from a file (or its part) and a Ukrainian text.
 description:         It can also generate a timbre for the notes. Uses SoX inside.
 homepage:            https://hackage.haskell.org/package/dobutokO2