diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -157,3 +157,8 @@
 
 * Sixteenth version. Changed dependency version for directory package. Some documentation improvements for README.markdown file. Added a new module
 DobutokO.Sound.IntermediateF to work with intermediate files. Changed the names of the some functions in DobutokO.Sound module and its exports.
+
+## 0.17.0.0 -- 2020-03-25
+
+* Seventeenth version. Added a few functions ('reverbE', 'reverb1E' etc.) to work with SoX effects to DobutokO.Sound.IntermediateF module. Added some additional
+information in a dobutokO2.cabal file.
diff --git a/DobutokO/Sound/Executable.hs b/DobutokO/Sound/Executable.hs
--- a/DobutokO/Sound/Executable.hs
+++ b/DobutokO/Sound/Executable.hs
@@ -224,6 +224,13 @@
 dobutokO2H9 _ _ _ = pAnR_
 {-# INLINE dobutokO2H9 #-}
 
+dobutokO2H99 :: Bool -> String -> FilePath -> IO ()
+dobutokO2H99 exist2 args file = do
+  undefined
+{-# INLINE dobutokO2H99 #-}
+
+
+
 isDataStr :: String -> Bool
 isDataStr = null . filter (== '@')
 
diff --git a/DobutokO/Sound/IntermediateF.hs b/DobutokO/Sound/IntermediateF.hs
--- a/DobutokO/Sound/IntermediateF.hs
+++ b/DobutokO/Sound/IntermediateF.hs
@@ -40,6 +40,11 @@
   , playCollect1Dec
   , playCollectDec
   , replaceWithHQs
+  -- *** SoX effects application
+  , reverbE
+  , reverbW1E
+  , reverb1E
+  , reverbW1E
 ) where
 
 import Control.Concurrent (myThreadId,forkIO,threadDelay,killThread)
@@ -53,6 +58,7 @@
 import EndOfExe (showE)
 import System.Process (readProcessWithExitCode)
 import Data.Maybe (fromJust)
+import System.Exit (ExitCode (ExitSuccess))
 
 -- | Gets sizes of the \"result\*.wav\" files in the current directory. 
 getFileRSizes :: IO (V.Vector Integer)
@@ -270,3 +276,52 @@
 pAnR_ = do
   vec <- playAMrk
   pAnR2 vec
+
+----------------------------------------------------------------------------------------------------------------
+
+-- | Takes a filename to be applied a SoX \"reverb" effect with parameters of list of 'String' (the second argument). Produces the temporary
+-- new file with the name ((name-of-the-file) ++ \"reverb.wav\"), which then is removed. Please, remember that for the mono audio
+-- the after applied function file is stereo with 2 channels.
+--
+-- Besides, you can specify other SoX effects after reverberation in a list of 'String'. The syntaxis is that every separate literal must be
+-- a new element in the list. If you plan to create again mono audio in the end of processment, then probably use 'reverb1E' funcion instead. 
+-- If you would like to use instead of \"reverb\" its modification \"reverb -w\" effect (refer to SoX documentation), then probably it is more
+-- convenient to use 'reverbWE' function.
+reverbE :: FilePath -> [String] -> IO ()
+reverbE file arggs = do
+  (code,_,_) <- readProcessWithExitCode (fromJust (showE "sox")) ([file,file ++ "reverb.wav","reverb"] ++ arggs) ""
+  case code of
+    ExitSuccess -> do renameFile (file ++ "reverb.wav") file
+    - -> do
+       removeFile $ file ++ "reverb.wav"
+       putStrLn $ "DobutokO.Sound.IntermediateF.reverbE: file \"" ++ file ++ "\" has not been successful. The file has not been changed at all. "
+
+-- | The same as 'reverbE', but at the end file is being mixed to obtain mono audio.
+reverb1E :: FilePath -> [String] -> IO ()
+reverb1E file arggs = do
+  (code,_,_) <- readProcessWithExitCode (fromJust (showE "sox")) ([file,file ++ "reverb1.wav","reverb"] ++ arggs ++ ["channels","1"]) ""
+  case code of
+    ExitSuccess -> do renameFile (file ++ "reverb1.wav") file
+    - -> do
+       removeFile $ file ++ "reverb1.wav"
+       putStrLn $ "DobutokO.Sound.IntermediateF.reverb1E: file \"" ++ file ++ "\" has not been successful. The file has not been changed at all. "
+
+-- | The same as 'reverbE', but uses \"reverb -w\" effect instead of \"reverb\". Please, for more information, refer to SoX documentation.
+reverbWE :: FilePath -> [String] -> IO ()
+reverbWE file arggs = do
+  (code,_,_) <- readProcessWithExitCode (fromJust (showE "sox")) ([file,file ++ "reverbW.wav","reverb","-w"] ++ arggs) ""
+  case code of
+    ExitSuccess -> do renameFile (file ++ "reverbW.wav") file
+    - -> do
+       removeFile $ file ++ "reverbW.wav"
+       putStrLn $ "DobutokO.Sound.IntermediateF.reverbWE: file \"" ++ file ++ "\" has not been successful. The file has not been changed at all. "
+
+-- | The same as 'reverbWE', but at the end file is being mixed to obtain mono audio. 
+reverbW1E :: FilePath -> [String] -> IO ()
+reverbW1E file arggs = do
+  (code,_,_) <- readProcessWithExitCode (fromJust (showE "sox")) ([file,file ++ "reverbW1.wav","reverb","-w"] ++ arggs ++ ["channels","1"]) ""
+  case code of
+    ExitSuccess -> do renameFile (file ++ "reverbW1.wav") file
+    - -> do
+       removeFile $ file ++ "reverbW1.wav"
+       putStrLn $ "DobutokO.Sound.IntermediateF.reverbW1E: file \"" ++ file ++ "\" has not been successful. The file has not been changed at all. "
diff --git a/dobutokO2.cabal b/dobutokO2.cabal
--- a/dobutokO2.cabal
+++ b/dobutokO2.cabal
@@ -2,9 +2,9 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                dobutokO2
-version:             0.16.0.0
+version:             0.17.0.0
 synopsis:            A program and a library to create experimental music from a mono audio and a Ukrainian text
-description:         It can also create a timbre for the notes
+description:         It can also create a timbre for the notes. Uses SoX inside.
 homepage:            https://hackage.haskell.org/package/dobutokO2
 license:             MIT
 license-file:        LICENSE