diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -71,3 +71,8 @@
 * Fifth version. From DobutokO.Sound.IntermediateF module (dobutokO2 package) some functions were moved here. They are in MMSyn7l module. This was 
 done to allow their usage without the necessity to install dobutokO2 package (just using mmsyn7* series). Added new fade functions to the same 
 module using the moved ones.
+
+## 0.6.0.0 -- 2020-05-30
+
+* Sixth version. Added two new functions to fade ends of the sound to MMSyn7l module. Fixed an issue with the version number in the Main.main function. 
+Some minor code and documentation improvements.
diff --git a/MMSyn7l.hs b/MMSyn7l.hs
--- a/MMSyn7l.hs
+++ b/MMSyn7l.hs
@@ -207,24 +207,41 @@
        removeFile $ file ++ "effects" ++ efw2 file
        putStrLn $ "MMSyn7l.soxE \"" ++ file ++ "\" has not been successful. The file has not been changed at all. "
 
--- | Applies \"fade\" effect to both ends of the supported by SoX sound file 'FilePath' so that concatenating them consequently after such application 
+-- | Applies \"fade q\" effect to both ends of the supported by SoX sound file 'FilePath' so that concatenating them consequently after such application 
 -- leads to no clipping. Otherwise, the clipping exists if not prevented by may be some other means. For more information, please, refer to the
 -- SoX documentation.
 fadeEnds :: FilePath -> IO ()
 fadeEnds = fadeEndsMilN 10
 
--- | Applies \"fade\" effect to both ends of the supported by SoX sound file 'FilePath' so that concatenating them consequently after such application 
+-- | Applies \"fade q\" effect to both ends of the supported by SoX sound file 'FilePath' so that concatenating them consequently after such application 
 -- leads to no clipping. Otherwise, the clipping exists if not prevented by may be some other means. The duration of the changes are in 5 times 
 -- smaller than for 'fadeEnds' function and is equal to 0.002 sec. For more information, please, refer to the SoX documentation.
 fadeEndsMil2 :: FilePath -> IO ()
 fadeEndsMil2 = fadeEndsMilN 2
 
--- | Applies \"fade\" effect to both ends of the supported by SoX sound file 'FilePath' so that concatenating them consequently after such application 
+-- | Applies \"fade q\" effect to both ends of the supported by SoX sound file 'FilePath' so that concatenating them consequently after such application 
 -- leads to no clipping. Otherwise, the clipping exists if not prevented by may be some other means. The duration of the changes are usually 
 -- smaller than for 'fadeEnds' function and is equal to 0.001 \* n sec (where n is in range [1..10]). 
 -- For more information, please, refer to the SoX documentation.
 fadeEndsMilN :: Int -> FilePath -> IO ()
 fadeEndsMilN n file = soxE file ["fade","q", showFFloat (Just 4) (if (n `rem` 11) /= 0 then 0.001 * fromIntegral (n `rem` 11) else 0.002) "","-0.0"]
+
+-- | Applies \"fade\" effect (the type is specified by the 'Char' argument, for more information, please, refer to the SoX documentation) to the both ends 
+-- of the sound with header (supported by SoX). The 'Double' arguments specify the percentages of the length of the sound that is faded-in and faded-out 
+-- respectively. Otherwise, the function returns an error.
+fadeEndsTMN :: Char -> Double -> Double -> FilePath -> IO ()
+fadeEndsTMN c per1 per2 file 
+ | compare per1 0 == GT && compare per2 0 == GT && compare (per1 + per2) 100 /= GT = do
+    d0 <- SB.durationA file
+    soxE file ["fade", getBFst' ("l", V.fromList [('h',"h"),('p',"p"),('q',"q"),('t',"t")]) c, showFFloat (Just 4) (d0 * per1 / 100.0) "","-0.0", showFFloat (Just 4) (d0 * per2 / 100.0) ""
+ | otherwise = error "MMSyn7l.fadeEndsTMN: the percentages sum is out of the (0..100] range. "
+
+-- | Variant of the 'fadeEndsTMN' with the both equal percentages specified by the 'Double' argument. It must be in the range (0..50]. Otherwise, the function 
+-- returns error.
+fadeEndsTMB :: Char -> Double -> FilePath -> IO ()
+fadeEndsTMB c per 
+ | compare per 0 == GT && compare per 50 /= GT = fadeEndsTMN c per per
+ | otherwise = error "MMSyn7l.fadeEndsTMB: the percentage is out of the (0..50] range. "
 
 ------------------------------------------------------------------------------------------------------
 
diff --git a/Main.hs b/Main.hs
--- a/Main.hs
+++ b/Main.hs
@@ -50,22 +50,17 @@
       putStrLn "given sound representations. If not specified, the program modifies the amplitudes for all non-pause Ukrainian sounds representations."
       putStrLn ""
     ("-v":_)  -> do
-      putStrLn "mmsyn7l version: 0.4.2.0"
+      putStrLn "mmsyn7l version: 0.6.0.0"
       putStrLn ""
     ("-r":_)  -> adjustVolRes . drop 1 $ args
     _         ->  do
       putStrLn "Now you can change the amplitude of the needed sound representations of the Ukrainian sounds (or something similar). "
       putStrLn ""
-      let xs = take 1 $ args
-          rrs = show xs
-          list = read (replaceP rrs)::[String]
-          zss = read (replaceP4 . show $ list)::[String]
-          wws = map (getBFst' ("0.wav", V.fromList . zip ["а","б","в","г","д","дж","дз","е","ж","з","и","й","к","л","м","н","о","п","р","с",
-                       "сь","т","у","ф","х","ц","ць","ч","ш","ь","і","ґ"] $ ["A.wav", "B.wav", "C.wav", "D.wav", "E.wav", "F.wav", "G.wav", "H.wav", 
-                         "I.wav", "J.wav", "K.wav", "L.wav", "M.wav", "N.wav", "O.wav", "P.wav", "Q.wav", "R.wav", 
-                           "S.wav", "T.wav", "U.wav", "V.wav", "W.wav", "X.wav", "Y.wav", "Z.wav", "a.wav", "b.wav", "c.wav", 
-                             "d.wav", "e.wav", "f.wav"])) zss
-      mapM_ (changeVolume 1) wws
+      let wss = read (replaceP4 . show $ (read  (replaceP . show . take 1 $ args)::[String]))::[String]
+      mapM_ (changeVolume 1) . map (getBFst' ("0.wav", V.fromList . zip ["а","б","в","г","д","дж","дз","е","ж","з","и","й","к","л","м","н","о","п","р","с",
+        "сь","т","у","ф","х","ц","ць","ч","ш","ь","і","ґ"] $ ["A.wav", "B.wav", "C.wav", "D.wav", "E.wav", "F.wav", "G.wav", "H.wav", "I.wav", "J.wav", 
+          "K.wav", "L.wav", "M.wav", "N.wav", "O.wav", "P.wav", "Q.wav", "R.wav", "S.wav", "T.wav", "U.wav", "V.wav", "W.wav", "X.wav", "Y.wav", "Z.wav", 
+            "a.wav", "b.wav", "c.wav", "d.wav", "e.wav", "f.wav"])) $ wss
       putStrLn ""
       putStrLn "Now you have changed (or left unchanged) the amplitudes for the needed sound representations for the Ukrainian language. "
       putStrLn "Please, remember about responsible usage especially in case of processing the real voice sound samples! "
diff --git a/mmsyn7l.cabal b/mmsyn7l.cabal
--- a/mmsyn7l.cabal
+++ b/mmsyn7l.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                mmsyn7l
-version:             0.5.0.0
+version:             0.6.0.0
 synopsis:            Modifies the amplitudes of the Ukrainian sounds representations created by mmsyn7ukr package.
 description:         A program and a library to modify the amplitudes of the Ukrainian sounds representations created by mmsyn7ukr package or somehow otherwise.
 homepage:            https://hackage.haskell.org/package/mmsyn7l