diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -326,3 +326,8 @@
 
 * Thirty-sixth version revised A. Fixed issues with being not compiled for GHC 7.8.4 because of inappropriate length usage for vectors in 
 DobutokO.Sound.Functonal module.
+
+## 0.36.2.0 -- 2020-04-25
+
+* Thirty-sixth version revised B. Fixed issues with being not compiled for GHC 7.8.4 because of inappropriate some functions usage in 
+DobutokO.Sound.Functonal module.
diff --git a/DobutokO/Sound.hs b/DobutokO/Sound.hs
--- a/DobutokO/Sound.hs
+++ b/DobutokO/Sound.hs
@@ -422,7 +422,7 @@
 overSoXSynthN34G :: Int -> Double -> Double -> Durations -> String -> String -> V.Vector Double -> IO ()
 overSoXSynthN34G n ampL dAmpl v2 tts vs vec0
  | compare (abs ampL) 0.01 /= LT && compare (abs ampL) 1.0 /= GT = 
-    let m     = length v2
+    let m     = V.length v2
         zeroN = numVZeroesPre vec0
         v3    = intervalsFromString vs
         l     = length vs in V.imapM_ (\j x -> do 
@@ -462,9 +462,9 @@
 overSoXSynthN35G :: Int -> Double -> Double -> Durations -> String -> Intervals -> V.Vector Double -> IO ()
 overSoXSynthN35G n ampL dAmpl v2 tts v3 vec0
  | compare (abs ampL) 0.01 /= LT && compare (abs ampL) 1.0 /= GT = 
-    let m     = length v2
+    let m     = V.length v2
         zeroN = numVZeroesPre vec0
-        l     = length v3 in V.imapM_ (\j x -> do 
+        l     = V.length v3 in V.imapM_ (\j x -> do 
           let note0 = closestNote x                     -- zs is obtained from the command line arguments
               note1 = dNote (V.unsafeIndex v3 (j `rem` l)) note0
               v0    = overTones2 note0 tts
@@ -728,7 +728,7 @@
 uniqOverSoXSynthN4G :: Int -> Double -> Durations -> String -> V.Vector Double -> IO ()
 uniqOverSoXSynthN4G n ampL v2 wws vec0
  | compare (abs ampL) 0.01 /= LT && compare (abs ampL) 1.0 /= GT =
-    let m     = length v2
+    let m     = V.length v2
         zeroN = numVZeroesPre vec0 in V.imapM_ (\j x -> do   
           let note0 = closestNote x
               note1 = pureQuintNote note0
@@ -743,8 +743,7 @@
                    "sine", showFFloat (Just 4) noteN "", "vol", if compare (V.unsafeIndex v2 (j `rem` m)) 0.0 == GT 
                       then showFFloat (Just 4) (amplN * ampL) "" else "0"] "")
               soxSynthHelpMain note01 note02 = readProcessWithExitCode (fromJust (showE "sox")) ["-r22050", "-n", "testA" ++
-                 prependZeroes zeroN "1" ++  ".wav", "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", showFFloat (Just 4) note01 $
-                  show 0, "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", "mix", showFFloat (Just 4) note02 "", "vol",
+                 prependZeroes zeroN "1" ++  ".wav", "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", showFFloat (Just 4) note01 "", "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", "mix", showFFloat (Just 4) note02 "", "vol",
                     if compare (V.unsafeIndex v2 (j `rem` m)) 0.0 == GT then "0.5" else "0"]  ""
           soxSynthHelpMain note0 note1
           uniqOverSoXSynthHelpN v0
@@ -775,7 +774,7 @@
 uniqOverSoXSynthN34G :: Int -> Double -> Durations -> String -> String -> V.Vector Double -> IO ()
 uniqOverSoXSynthN34G n ampL v2 wws tts vec0
  | compare (abs ampL) 0.01 /= LT && compare (abs ampL) 1.0 /= GT =
-    let m     = length v2
+    let m     = V.length v2
         zeroN = numVZeroesPre vec0 in V.imapM_ (\j x -> do   
           let note0 = closestNote x                         -- zs ? vec0 -- are they related to the one object? No, they are obtained from different sources.
               note1 = pureQuintNote note0
@@ -788,8 +787,8 @@
                 ["-r22050", "-n", "testQ" ++ prependZeroes zeroN (show (i + 2)) ++ ".wav", "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "",
                    "sine", showFFloat (Just 4) noteN "", "vol", if compare (V.unsafeIndex v2 (j `rem` m)) 0.0 == GT then showFFloat (Just 4) (amplN * ampL) "" else "0"] "") vec 
               soxSynthHelpMain note01 note02 = readProcessWithExitCode (fromJust (showE "sox")) ["-r22050", "-n", "testA" ++
-                prependZeroes zeroN "1" ++  ".wav", "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", showFFloat (Just 4) note01 $
-                  show 0,"synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", "mix", showFFloat (Just 4) note02 "", "vol",
+                prependZeroes zeroN "1" ++  ".wav", "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", showFFloat (Just 4) note01 "",
+                  "synth", showFFloat (Just 4) (V.unsafeIndex v2 (j `rem` m)) "","sine", "mix", showFFloat (Just 4) note02 "", "vol",
                     if compare (V.unsafeIndex v2 (j `rem` m)) 0.0 == GT then "0.5" else "0"] ""
           soxSynthHelpMain note0 note1
           uniqOverSoXSynthHelpN v0
@@ -828,7 +827,7 @@
 uniqOverSoXSynthN45G :: Int -> Double -> Double -> Durations -> String -> String -> Intervals -> V.Vector Double -> IO ()
 uniqOverSoXSynthN45G n ampL dAmpl v2 wws tts v3 vec0
  | compare (abs ampL) 0.01 /= LT && compare (abs ampL) 1.0 /= GT =
-    let m     = length v2
+    let m     = V.length v2
         zeroN = numVZeroesPre vec0
         l     = V.length v3 in V.imapM_ (\j x -> do   
           let note0 = closestNote x
@@ -866,7 +865,7 @@
 uniqOverSoXSynthN46G n ampL dAmpl v2 wws tts v3 vec0 v6 limV
  | V.null v6 = putStrLn "You did not provide a volume adjustments vector! "
  | compare (abs ampL) 0.01 /= LT && compare (abs ampL) 1.0 /= GT =
-    let m     = length v2
+    let m     = V.length v2
         zeroN = numVZeroesPre vec0
         l     = V.length v3 in V.imapM_ (\j x -> do   
           let note0 = closestNote x
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.36.1.0
+version:             0.36.2.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