diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -320,5 +320,9 @@
 * Thirty-sixth version. Changed the structure of imported modules: now DobutokO.Sound.Functional imports DobutokO.Sound.IntermediateF and not vice versa 
 as has been earlier. Added new 4G functions and rewritten a lot of previous ones so that now they support generation not only the sounds but also pauses 
 and you can specify your own durations. Added new type synonyms and functions to work with them. Added new 5G functions to work with Intervals 
-and 6G functions to work with Strengths (vulume levels). Some documentation and code improvements.
+and 6G functions to work with Strengths (volume levels). Some documentation and code improvements.
 
+## 0.36.1.0 -- 2020-04-25
+
+* 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.
diff --git a/DobutokO/Sound/Functional.hs b/DobutokO/Sound/Functional.hs
--- a/DobutokO/Sound/Functional.hs
+++ b/DobutokO/Sound/Functional.hs
@@ -553,7 +553,7 @@
  | otherwise = do
     let limA0 = abs ((limB / 10) - (fromIntegral . truncate $ (limB / 10))) * 10
         limA  = if compare limA0 0.1 == LT then 0.1 else limA0
-        l0    = length v5
+        l0    = V.length v5
         note0 = closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0)
         note1 = dNote (V.unsafeIndex v5 (abs (j `rem` l0))) note0
         g0    = V.fromList . nubBy (\(!x1,_) (!x2,_) -> compare (abs (x1 - x2)) limA == LT) . V.toList . V.map (\(noteX, !amplX) ->
@@ -589,7 +589,7 @@
   | otherwise = do
     let limA0 = abs ((limB / 10) - (fromIntegral . truncate $ (limB / 10))) * 10
         limA  = if compare limA0 0.1 == LT then 0.1 else limA0
-        l0    = length v5
+        l0    = V.length v5
         note0 = closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0)
         note1 = dNote (V.unsafeIndex v5 (abs (j `rem` l0))) note0
         g0    = V.fromList . nubBy (\(!x1,_) (!x2,_) -> compare (abs (x1 - x2)) limA == LT) . V.toList . V.map (\(noteX, !amplX) ->
@@ -678,7 +678,7 @@
  | V.null v5 = overSoXSynth x
  | otherwise = do
     let note0 = closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0)
-        l0    = length v5
+        l0    = V.length v5
         note1 = dNote (V.unsafeIndex v5 (abs (j `rem` l0))) note0
         v0    = f note0
         v1    = maybe V.empty f note1
@@ -699,7 +699,7 @@
  | V.null v5 = overSoXSynth x
  | otherwise = do
     let note0 = closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0)
-        l0    = length v5
+        l0    = V.length v5
         note1 = dNote (V.unsafeIndex v5 (abs (j `rem` l0))) note0
         v0    = f note0
         v1    = maybe V.empty f note1
@@ -871,7 +871,7 @@
 overSoXSynth2FDN_Sf35G f (x, y, t0) j v5 vdB ys
  | V.null v5 = overSoXSynth x
  | otherwise = do
-    let l0    = length v5
+    let l0    = V.length v5
     soundGenF32G (V.fromList [\x -> closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0),\x -> fromMaybe (V.unsafeIndex notes 0)
      (dNote (V.unsafeIndex v5 (abs (j `rem` l0))) (closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0)))])
        (V.replicate 2 x) (V.fromList [1,V.unsafeIndex v5 (abs (j `rem` l0))]) f (x, y, t0) j vdB ys
@@ -882,7 +882,7 @@
 overSoXSynth2FDN_Sf36G f (x, y, t0) j v5 vdB ys vol
  | V.null v5 = overSoXSynth x
  | otherwise = do
-    let l0    = length v5
+    let l0    = V.length v5
     soundGenF32G (V.fromList [\x -> closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0),\x -> fromMaybe (V.unsafeIndex notes 0)
      (dNote (V.unsafeIndex v5 (abs (j `rem` l0))) (closestNote (if x /= 0.0 then abs x else V.unsafeIndex notes 0)))])
        (V.replicate 2 x) (V.fromList [1,V.unsafeIndex v5 (abs (j `rem` l0))]) f (x, y, t0) j vdB ys
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.0.0
+version:             0.36.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